paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 22:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for bug ID #27715

Browse Source 
git-svn-id: trunk@30295 -
This commit is contained in:
michael 2015-03-23 19:50:46 +00:00
parent 3be394061e
commit ac077797cd
2 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/base/bufdataset.pas
View File

@ -2676,7 +2676,10 @@ end;
function TCustomBufDataset.GetRecordCount: Longint;
begin
Result := FBRecordCount;
if Active then
Result := FBRecordCount
else
Result:=0;
end;
function TCustomBufDataset.UpdateStatus: TUpdateStatus;

17
packages/fcl-db/tests/testspecifictbufdataset.pas
View File

@ -39,6 +39,7 @@ type
procedure TestAutoIncField;
procedure TestAutoIncFieldStreaming;
procedure TestAutoIncFieldStreamingXML;
Procedure TestRecordCount;
end;
implementation
@ -248,6 +249,22 @@ begin
IntTestAutoIncFieldStreaming(true);
end;
procedure TTestSpecificTBufDataset.TestRecordCount;
var
BDS:TBufDataSet;
begin
BDS:=TBufDataSet.Create(nil);
BDS.FieldDefs.Add('ID',ftLargeint);
BDS.CreateDataSet;
BDS.AppendRecord([1]);
BDS.AppendRecord([2]);
BDS.AppendRecord([3]);
BDS.Close;
AssertEquals('IsEmpty: ',True,BDS.IsEmpty);
AssertEquals('RecordCount: ',0,BDS.RecordCount);
end;
initialization
{$ifdef fpc}