mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 20:09:18 +02:00
+ moved InternalInitRecord from Clearbuffers to Resync
git-svn-id: trunk@3210 -
This commit is contained in:
parent
ff472b1366
commit
8f5e0c8d81
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user