Feldwerte eines Records über den Feldindex abrufen

[Andreas13]

Hallo,
das funktioniert auch ohne RTTI:

Delphi-Quellcode:

type
  TMyRecord = packed Record 
    FeldA,
    FeldB,
    FeldC: String;
  End;

var 
  MyRecord: TMyRecord;

VAR
//  MyArray: Array[1..3] of String ABSOLUTE MyRecord; // oder so:
 MyArray: Array[1..3] of String ABSOLUTE MyRecord.FeldA;

Begin
  MyRecord.FeldA:= 'AAAAAAAAAAAA';
  MyRecord.FeldB:= 'BBBBBBBBBBBB';
  MyRecord.FeldC:= 'CCCCCCCCCCCC';

  WriteLn('MyArray[1] = ', MyArray[1]);
  WriteLn('MyArray[2] = ', MyArray[2]);
  WriteLn('MyArray[3] = ', MyArray[3]);
      
  ReadLn;

End.