Commit 5cbf0c63 authored by Martin Schreiber's avatar Martin Schreiber

+ tsqlresult.countrest().

parent 07536f9c
......@@ -372,6 +372,7 @@ type
procedure refresh(const aparams: array of variant);
procedure refresh;
procedure next;
function countrest(): int32; //including current record
function rowsaffected: integer; //-1 if not supported
function rowsreturned: integer; //-1 if not supported
// procedure asvariant(out avalue: variant); overload; //internal compiler error
......@@ -1588,6 +1589,15 @@ begin
feof:= not fdatabase.fetch(fcursor);
end;
function tsqlresult.countrest(): int32;
begin
result:= 0;
while not eof do begin
inc(result);
next();
end;
end;
procedure tsqlresult.refresh(const aparams: array of variant);
begin
if not active then begin
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment