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

* Remove some debug statements

Browse Source
This commit is contained in:
michael 2018-02-11 15:55:05 +00:00
parent 959ef209da
commit eb11d23de7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/db.pas
View File

@ -4335,14 +4335,14 @@ begin
DoBeforeScroll; DoBeforeScroll;
ClearBuffers; ClearBuffers;
try try
Writeln('FActiveRecord before last',FActiveRecord); // Writeln('FActiveRecord before last',FActiveRecord);
InternalLast; InternalLast;
Writeln('FActiveRecord after last',FActiveRecord); // Writeln('FActiveRecord after last',FActiveRecord);
GetPriorRecords; GetPriorRecords;
Writeln('FRecordCount: ',FRecordCount); // Writeln('FRecordCount: ',FRecordCount);
if FRecordCount>0 then if FRecordCount>0 then
FActiveRecord:=FRecordCount-1; FActiveRecord:=FRecordCount-1;
Writeln('FActiveRecord ',FActiveRecord); // Writeln('FActiveRecord ',FActiveRecord);
finally finally
FEOF:=true; FEOF:=true;
DataEvent(deDataSetChange, 0); DataEvent(deDataSetChange, 0);