zoukankan      html  css  js  c++  java
  • TSQLTableJSON解析JSON

    TSQLTableJSON解析JSON

    uses mormot

    rocedure TTestTableContent.SynopseTableVariant;
    var json: RawUTF8;
    people: variant;
    list: TSQLTableJSON;
    begin
    json := StringFromFile(fFileName);
    Owner.TestTimer.Start;
    list := TSQLTableJSON.Create('',pointer(json),length(json));
    while list.Step(false,@people) do begin
    Check(people.FirstName<>'');
    Check(people.LastName<>'');
    Check(people.YearOfBirth<10000);
    Check((people.YearOfDeath>1400)and(people.YearOfDeath<2000));
    Check((people.ID>11011) or (people.Data<>''));
    end;
    fRunConsoleOccurenceNumber := list.RowCount;
    fRunConsoleMemoryUsed := MemoryUsed-fMemoryAtStart;
    list.Free;
    end;

    procedure TTestTableContent.SynopseTableIndex;
    var json: RawUTF8;
    list: TSQLTableJSON;
    i: Integer;
    begin
    json := StringFromFile(fFileName);
    Owner.TestTimer.Start;
    list := TSQLTableJSON.Create('',pointer(json),length(json));
    for i := 1 to list.RowCount do begin
    Check(list.Get(i,'FirstName')<>nil);
    Check(list.Get(i,'LastName')<>nil);
    Check(list.GetAsInteger(i,'YearOfBirth')<10000);
    Check((list.GetAsInteger(i,'YearOfDeath')>1400)and(list.GetAsInteger(i,'YearOfDeath')<2000));
    Check((list.GetAsInteger(i,'RowID')>11011) or (list.Get(i,'Data')<>nil));
    end;
    fRunConsoleOccurenceNumber := list.RowCount;
    fRunConsoleMemoryUsed := MemoryUsed-fMemoryAtStart;
    list.Free;
    end;

  • 相关阅读:
    cha[] strrev(char[])
    线段树入门了解
    求最大严格递增序列
    素数环
    20181016-10 每周例行报告
    第五周例行报告
    作业要求 20180925-1 每周例行报告
    作业要求20180925-2 功能测试
    作业要求 20180925-3 效能分析
    作业要求20180925-4 单元测试,结对
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/8047145.html
Copyright © 2011-2022 走看看