TOrmPropInfoList.IndexByName - minified

program OrmFieldIndex;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  mormot.orm.core;

type
  TOrmUser = class(TOrm)
  private
    FA: UTF8String;
    FAB: Integer;
    FABC: Integer;
  published
    property A: UTF8String read FA write FA;
    property AB: Integer read FAB write FAB;
    property ABC: Integer read FABC write FABC;
  end;

begin
  try
    Writeln(TOrmUser.OrmProps.Fields.Items[0].Name);
    Writeln(TOrmUser.OrmProps.Fields.IndexByName('A'));
  except
    on E: Exception do
      Writeln(E.Message);
  end;

  Readln;
end.