paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 02:41:50 +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) TIBQuery = class (TDBDataset)
private private
FOpen : Boolean;
FTransaction : TIBTransaction; FTransaction : TIBTransaction;
FDatabase : TIBDatabase; FDatabase : TIBDatabase;
FStatus : array [0..19] of ISC_STATUS; FStatus : array [0..19] of ISC_STATUS;
@ -1023,6 +1024,7 @@ begin
FBufferSize := 0; FBufferSize := 0;
FRecordSize := 0; FRecordSize := 0;
FRecordCount:= 0; FRecordCount:= 0;
FOpen:=False;
end; end;
procedure TIBQuery.InternalDelete; procedure TIBQuery.InternalDelete;
@ -1093,6 +1095,7 @@ begin
DescribeStatement; DescribeStatement;
AllocFldBuffers; AllocFldBuffers;
Execute; Execute;
FOpen:=True;
InternalInitFieldDefs; InternalInitFieldDefs;
if DefaultFields then if DefaultFields then
CreateFields; CreateFields;
@ -1118,7 +1121,7 @@ end;
function TIBQuery.IsCursorOpen: Boolean; function TIBQuery.IsCursorOpen: Boolean;
begin begin
Result := False; Result := FOpen;
end; end;
procedure TIBQuery.SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag); procedure TIBQuery.SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag);