paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-22 08:39:22 +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;
ClearBuffers;
try
Writeln('FActiveRecord before last',FActiveRecord);
// Writeln('FActiveRecord before last',FActiveRecord);
InternalLast;
Writeln('FActiveRecord after last',FActiveRecord);
// Writeln('FActiveRecord after last',FActiveRecord);
GetPriorRecords;
Writeln('FRecordCount: ',FRecordCount);
// Writeln('FRecordCount: ',FRecordCount);
if FRecordCount>0 then
FActiveRecord:=FRecordCount-1;
Writeln('FActiveRecord ',FActiveRecord);
// Writeln('FActiveRecord ',FActiveRecord);
finally
FEOF:=true;
DataEvent(deDataSetChange, 0);