You are not logged in.
Pages: 1
Hello,
I don't know if my proposal doesn't go beyond the logic of the FetchAllToJSON function, but I would welcome if FetchAllToJSON function returns eally all records ( not only the rest of records from the CurrentRow position)
f.e.
instead of
function TSQLDBStatement.FetchAllToJSON(JSON: TStream; Expanded: boolean): PtrInt;
...
while Step do begin
ColumnsToJSON(W);
W.Add(',');
inc(result);
end;
...
to use:
function TSQLDBStatement.FetchAllToJSON(JSON: TStream; Expanded: boolean): PtrInt;
var lFirst : boolean;
...
lFirst := true;
while Step(lFirst) do begin
lFirst := false;
ColumnsToJSON(W);
W.Add(',');
inc(result);
end;
...
Offline
ok, thx for explanatation
Offline
Pages: 1