TOrmPropInfoList.IndexByName

program OrmFieldIndex;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  mormot.orm.core;

type
  TOrmUser = class(TOrm)
  private
    FLogin: UTF8String;
    FPassHash: UTF8String;
    FPassSalt: UTF8String;
    FPassIterations: Integer;
    FPassForceUpdate: Boolean;
    FLoginsFailed: Integer;
    FActive: Boolean;
    FUserLevel: Byte;
    FName_Given: UTF8String;
    FName_Prefix: UTF8String;
    FName_Suffix: UTF8String;
    FName_Family_Prefix: UTF8String;
    FName_Family_Name: UTF8String;
    FName_Family_Suffix: UTF8String;
  published
    property Login: UTF8String read FLogin write FLogin;
    property PassHash: UTF8String read FPassHash write FPassHash;
    property PassSalt: UTF8String read FPassSalt write FPassSalt;
    property PassIterations: Integer read FPassIterations write FPassIterations;
    property PassForceUpdate: Boolean read FPassForceUpdate write FPassForceUpdate;
    property LoginsFailed: Integer read FLoginsFailed write FLoginsFailed;
    property Active: Boolean read FActive write FActive;
    property UserLevel: Byte read FUserLevel write FUserLevel;
    // Name: TPpPersonName
    property Name_Prefix: UTF8String read FName_Prefix write FName_Prefix;
    property Name_Given: UTF8String read FName_Given write FName_Given;
    property Name_Suffix: UTF8String read FName_Suffix write FName_Suffix;
    // Name.Family: TPpPersonName.TPpFamilyName
    property Name_Family_Prefix: UTF8String read FName_Family_Prefix write FName_Family_Prefix;
    property Name_Family_Name: UTF8String read FName_Family_Name write FName_Family_Name;
    property Name_Family_Suffix: UTF8String read FName_Family_Suffix write FName_Family_Suffix;
  end;

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

  Readln;
end.