🚀 go-pugleaf

Hi.

I'm trying to use a TClientDataSet as a native type for transporting data 
around a bunch of network applications, purely because the SaveToStream and 
LoadFromStream are A LOT faster than KbmMemTable's similar methods, but I'm 
having a bizarre problem.

I'm creating a new class, inherited from TClientDataSet, so that I can add 
an extra couple of properties and methods, and this is causing a problem.

If you create a new console app and paste the code below into it, you'll see 
my issue.

Can anyone (please!!!) advise me on how to resolve this rather strange 
problem??

Thanks in advance,

John.


//    Start of 
application --------------------------------------------------------------------------------

program ClientDataSetDates;

{$APPTYPE CONSOLE}

uses
  DBClient,
  DB;

type
 TMyClientDataSet = class(TClientDataSet)
  end;

var
 ClientDataSet: TClientDataSet;
  MyClientDataSet: TMyClientDataSet;
begin
 ClientDataSet := TClientDataSet.Create(nil);

  ClientDataSet.FieldDefs.Add('Field1', ftDateTime);
  ClientDataSet.CreateDataSet;

  ClientDataSet.Append;
  ClientDataSet.FieldByName('Field1').Value := '5/11/1955 11:30:15';
  ClientDataSet.Post;

  MyClientDataSet := TMyClientDataSet.Create(nil);
  MyClientDataSet.Data := ClientDataSet.Data;
  MyClientDataSet.First;

  Writeln('ClientDataSet : ' + 
ClientDataSet.FieldByName('Field1').AsString);
  Writeln('MyClientDataSet : ' + 
MyClientDataSet.FieldByName('Field1').AsString);

  Writeln('');
  Writeln('Press enter to exit');
  Readln;
end.

//    End of 
application --------------------------------------------------------------------------------