paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 22:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ IsCursorOpen implemented correctly

Browse Source
This commit is contained in:
michael 2003-05-06 12:09:43 +00:00
parent 18f0316d81
commit ca1656c69c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/db/interbase/interbase.pp
View File

@ -191,6 +191,7 @@ type
TIBQuery = class (TDBDataset)
private
FOpen : Boolean;
FTransaction : TIBTransaction;
FDatabase : TIBDatabase;
FStatus : array [0..19] of ISC_STATUS;
@ -1023,6 +1024,7 @@ begin
FBufferSize := 0;
FRecordSize := 0;
FRecordCount:= 0;
FOpen:=False;
end;
procedure TIBQuery.InternalDelete;
@ -1093,6 +1095,7 @@ begin
DescribeStatement;
AllocFldBuffers;
Execute;
FOpen:=True;
InternalInitFieldDefs;
if DefaultFields then
CreateFields;
@ -1118,7 +1121,7 @@ end;
function TIBQuery.IsCursorOpen: Boolean;
begin
Result := False;
Result := FOpen;
end;
procedure TIBQuery.SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag);