Missing RowCount in TJSONTable / TJSONTableObject

itSDS · 2014-12-04 16:30:39

Hi AB,
if i use nonExpanded Format, the Last Value is RowCount.

ATM i'm missing this Property in TJSONTable.
or is it fast enough to use

JSONVariant(JSON).rowCount

ab · 2014-12-04 18:03:53

AFAIR TJSONTable is parsing the content on the fly.
It does not use the "RowCount" indicator in non Expanded format.

But I guess that a

n := 0;
while table.Step do inc(n);

Is slightly faster than JSONVariant(JSON)...
Even if not perfect.

itSDS · 2014-12-05 12:31:06

TY, i took the first one. But Have one Problem with SeekFirst

Your code should read:

n := 0;
while table.Step(n=0) do inc(n);

or

n := 0;
bSeekFirst := true;
while table.Step(bSeekFirst) do begin
  inc(n); 
  bSeekFirst := false;
end;

cause normally you have to SeekFirst

Could there be an more elegant way to do the SeekFirst ?

Normally in Delphi you do something like:

table.First
while not table.eof do
  table.Next;
end;

Both Versions hae their Advantages.

Last edited by itSDS (2014-12-05 12:33:03)

ab · 2014-12-06 11:38:18

Or just write:

n := 0;
if table.Step(true) then
repeat
  inc(n);
until not table.Step;

mORMot Open Source