Record-Feld über Variable ansprechen

[Berserker]

Servus.

Ich will ein Feld in einem Record mit über eine Variable ansprechen.

Angenommen das Record sieht wie folgt aus:

Delphi-Quellcode:

type TTestRecord = record
    Test1: integer;
    Test2: integer;
    Test3: integer;
    Test4: integer;
end;

nun will ich mittels einer Funktion einen Wert auslesen:

z.B. function getValueFromRecord(fieldname: string): integer; also

i := getValueFromRecord('Test1'); Wie ist das zu bewerkstelligen?
Da ich bisher nur mit Datenbanken hantiere ist das neu für mich.

Bei einer DBTable kann ich den Wert vom aktuellen Datensatz mit

FieldByName(varibale).AsInteger; holen.

MfG, Ronny