TBufDataset.SaveToFile crash after delete
Original Reporter info from Mantis: izgenov
Description:
procedure TForm1.TestBufDataset;
var
BufDataset : TBufDataset;
begin
BufDataset := TBufDataset.Create(self);
BufDataset.FieldDefs.Add('Field1',ftInteger);
BufDataset.CreateDataset;
BufDataset.Active:= true;
BufDataset.Append;
BufDataset.FieldValues['Field1'] := 1;
BufDataset.Post;
BufDataset.Append;
BufDataset.FieldValues['Field1'] := 2;
BufDataset.Post;
BufDataset.Delete;
BufDataset.SaveToFile(ExtractFilePath(Application.ExeName) + DirectorySeparator + 'test');
FreeAndNil(BufDataset)
end;
Mantis conversion info:
-
Mantis ID: 19593
-
Fixed in version: 3.0.0
-
Fixed in revision: 21197 (#7d497886)