i have in the dpr the following line:
Code: Select all
ReportMemoryLeaksOnShutdown := True;
Code: Select all
procedure TForm3.FormShow(Sender: TObject);
var
lDataSet : TVirtualDataSet;
begin
lDataSet := TVirtualDataSet.Create(nil);
try
lDataSet.OnGetRecordCount := DataSetGetRecordCount;
lDataSet.OnGetFieldValue := DataSetGetFieldValue;
lDataSet.FieldDefs.Add('test', ftWideMemo);
lDataSet.Active := True;
lDataSet.Last;
lDataSet.First;
finally
FreeAndNil(lDataSet);
end;
end;
TCompressedBlobData x 6
Unknown x 3
TCompressedBlob x3
If i do the same with a ftString-Field, I have no Problem.
Thank you.
Regards, Jan