[patch] Add Clear and CopyFromDataset to TCustomBufDataset
Original Reporter info from Mantis: Thaddy
-
Reporter name: Thaddy de Koning
Original Reporter info from Mantis: Thaddy
- Reporter name: Thaddy de Koning
Description:
TBufDataset didn't have a clear method, nor a CopyFromDataset method like the ones in TMemDataset.
Aradeonas vopied out the relevant code from TMemDataset and applied it with minor changes to TBufDataset.
Steps to reproduce:
Small sample:
program bufdbtest;
{$apptype console}{$mode objfpc}
uses
db,BufDataset,md5;
var
BufDb, BufDb2:TBufDataset;
H1,H2:TMd5Digest;
begin
BufDb:=TBufDataset.Create(nil);
BufDb2:=TBufDataset.Create(nil);
try
BufDb.FieldDefs.Add('NAME',ftString,20);
BufDb.CreateDataSet;
BufDb.Open;
BufDb.Append;
BufDb.FieldByName('NAME').Value:='Free';
BufDb.Post;
BufDb.Append;
BufDb.FieldByName('NAME').Value:='Pascal';
BufDb.Post;
BufDb2.CopyFromDataSet(BufDb,true);
BufDb.SaveToFile('BufDb.txt');
BufDb.SaveToFile('BufDb2.txt');
finally
BufDb.Close;
BufDb.Free;
BufDb2.Close;
BufDb2.Free;
end;
H1 := MD5File('BufDb2.txt');
H2 := MD5File('BufDb2.txt');
writeln('Files are Identical?: ', MdMatch(H1,H2));
end.
Mantis conversion info:
- Mantis ID: 29761
- OS: all
- OS Build: all
- Build: 33140
- Platform: all
- Version: 3.1.1
- Fixed in version: 3.1.1
- Fixed in revision: 33150 (#81c4fe28)
- Target version: 3.0.2