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;