paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ moved InternalInitRecord from Clearbuffers to Resync

Browse Source 
git-svn-id: trunk@3210 -
This commit is contained in:
joost 2006-04-14 19:54:52 +00:00
parent ff472b1366
commit 8f5e0c8d81
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/db/dataset.inc
View File

@ -162,8 +162,6 @@ Procedure TDataset.ClearBuffers;
begin begin
FRecordCount:=0; FRecordCount:=0;
FactiveRecord:=0; FactiveRecord:=0;
// Make sure that the active record is 'empty', ie: that all fields are null
InternalInitRecord(ActiveBuffer);
FCurrentRecord:=-1; FCurrentRecord:=-1;
FBOF:=True; FBOF:=True;
FEOF:=True; FEOF:=True;
@ -1812,6 +1810,8 @@ begin
{$endif} {$endif}
// nothing found, invalidate buffer and bail out. // nothing found, invalidate buffer and bail out.
ClearBuffers; ClearBuffers;
// Make sure that the active record is 'empty', ie: that all fields are null
InternalInitRecord(ActiveBuffer);
DataEvent(deDatasetChange,0); DataEvent(deDatasetChange,0);
exit; exit;
end; end;