TJSONTableObject跨平台解析JSON

TJSONTableObject跨平台解析JSON

USES SynCrossPlatformJSON

TSQLRecordPeoplePersistent = class(TPersistent)
private
fRowID: integer;
fData: TByteDynArray;
fFirstName: string;
fLastName: string;
fYearOfBirth: integer;
fYearOfDeath: word;
published
property RowID: integer read fRowID write fRowID;
property FirstName: string read fFirstName write fFirstName;
property LastName: string read fLastName write fLastName;
property Data: TByteDynArray read fData write fData;
property YearOfBirth: integer read fYearOfBirth write fYearOfBirth;
property YearOfDeath: word read fYearOfDeath write fYearOfDeath;
end;

procedure TTestTableContent.SynopseCrossORM; // by cxg
var json: string;
table: TJSONTableObject;
people: TSQLRecordPeoplePersistent;
begin
json := AnyTextFileToString(fFileName,true);
people := TSQLRecordPeoplePersistent.Create;
Owner.TestTimer.Start;
table := TJSONTableObject.Create(json);
fRunConsoleOccurenceNumber := 0;
while table.StepObject(people) do begin
Check(people.FirstName<>'');
Check(people.LastName<>'');
Check(people.YearOfBirth<10000);
Check((people.YearOfDeath>1400)and(people.YearOfDeath<2000));
Check((people.RowID>11011) or (people.Data<>nil));
inc(fRunConsoleOccurenceNumber);
end;
fRunConsoleMemoryUsed := MemoryUsed-fMemoryAtStart;
table.Free;
people.Free;
end;