paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 05:27:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: sdf: fix for TTestCursorDBBasics.TestUpdateCursorPos

Browse Source 
git-svn-id: trunk@39023 -
This commit is contained in:
lacak 2018-05-18 12:26:54 +00:00
parent 8384dc7c07
commit fc390136cb
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/sdf/sdfdata.pp
View File

@ -562,12 +562,13 @@ function TFixedFormatDataSet.GetRecNo: Longint;
var
RecBuf: TRecordBuffer;
begin
Result := 0;
if GetActiveRecBuf(RecBuf) and (State <> dsInsert) then
begin
InternalSetToRecord(RecBuf);
UpdateCursorPos;
Result := FCurRec + 1 - FDataOffset;
end;
end
else
Result := 0;
end;
procedure TFixedFormatDataSet.SetRecNo(Value: Integer);