Durch record iterieren

[Strict]

Ich weiß die Frage ist bestimmt blöd aber ich kann sie nicht beantworten.
Ich habe ein ganz normales record

Delphi-Quellcode:

type TRec = record
 const
  A: string = 'A';
  B: string = 'B';
  CD: TArray<stirng> = ['C', 'D'];
end;

Gibt es eine Möglichkeit durch dieses Record zu gehen ohne extra noch einmal die Werte zu kennen?

Meine erste Idee: alles in ein Enum auslagern. Durch TRecData kann man dann iterieren... vielleicht? Und das Enum in einen String umwandeln.

Delphi-Quellcode:

type
 TRecData = (A, B, CD);

type TRec = record
 const
  A: string = TRecData.A;
  B: string = TRecData.B;
  CD: TArray<string> = [TRecData.C, TRecData.D];
end;

[himitsu]

System.RTTI.pas (früher RTTI.pas)

prinzipiell

Delphi-Quellcode:

uses
  System.RTTI;

var
  F: TRttiField;
begin
  for F in (TRttiContext.Create.GetType(TypeInfo(TRec)) {as TRttiRecordType}).GetFields do  // für Variablen aka Felder im Record
    ...

aber ich weiß/glaube nicht, ob/dass es möglich ist Konstanten aufzulisten. (für globale Konstanten und Variablen sind ja ebenfalls keine TypeInfos vorhanden)

[Strict]

Leider funktioniert das mit Konstanten nicht.
Hier wäre der Umweg über das Enum vielleicht eine Idee, um keine wirkliche, doppelte Daten zu haben.

[Raible]

evtl. so
allerdings ohne record

Code:

type 
  TmyEnum = (A,B,C,D);

const
  myConst:array[TmyEnum] of string = ('A', 'B', 'C', 'D');


...
var u:TmyEnum;
  
for u=Low(TmyEnum) to High(TmyEnum) do
begin
  doAnythingWith(mxConst[u]);
end;