mORMot Open Source

program str_prop_indx;

{$IFDEF FPC}
  {$MODE DELPHI}
{$ELSE}
  {$APPTYPE CONSOLE}
{$ENDIF}

uses
  SysUtils, SynCommons, mORMot, mORMotVCL;

type
  TSQLRecordPerson = class(TSQLRecord)
  private
    FFirstName: RawUTF8;
    FLastName: RawUTF8;
  published
    // with index specifier
    property FirstName: RawUTF8 index 30 read FFirstName write FFirstName;

    // with NO index specifier
    property LastName: RawUTF8 read FLastName write FLastName;
  end;

var
  lJSONStr: RawUTF8;
  lSynSQLTableDS: TSynSQLTableDataSet;
  lSQLTableJSON: TSQLTableJSON;
begin
  lJSONStr := '[{"FirstName":"John", "LastName":"Doe"},{"FirstName":"Mark", "LastName":"Twain"}]';

  lSynSQLTableDS := mORMotVCL.JSONTableToDataSet(nil, lJSONStr, [TSQLRecordPerson]);
  try
    lSynSQLTableDS.First;
    while not lSynSQLTableDS.Eof do
    begin
      Write(' FirstName="' + lSynSQLTableDS.FieldByName('FirstName').AsString + '"');
      Write(' LastName="' + lSynSQLTableDS.FieldByName('LastName').AsString + '"');
      WriteLn;
      lSynSQLTableDS.Next;
    end;
    Writeln('RecordCount=' + IntToStr(lSynSQLTableDS.RecordCount));
    Write(' FirstName DataSize=', lSynSQLTableDS.FieldByName('FirstName').DataSize);
    Write('   LastName DataSize=', lSynSQLTableDS.FieldByName('LastName').DataSize);
    WriteLn;
  finally
    lSynSQLTableDS.Free;
  end;
  WriteLn('Press Enter to exit ...');
  ReadLn;
end.

 FirstName="John" LastName="Doe"
 FirstName="Mark" LastName="Twain"
RecordCount=2
 FirstName DataSize=31   LastName DataSize=6
Press Enter to exit ...

 FirstName="John" LastName="D"
 FirstName="Mark" LastName="T"
RecordCount=2
 FirstName DataSize=31   LastName DataSize=2
Press Enter to exit ...