Bezeichnungen eines Records über Item ermitteln

[Ferber]

Delphi-Quellcode:

type
  PStammdaten = ^TStammdaten;
  TStammdaten = packed record
    TITEL       :String[20];
    NACHNAME    :String[40];
    VORNAME     :String[28];
    GEBURTSNAME :String[40];
    GEBURTSDATUM:String[12];
    GESCHLECHT  :String[1];
    STRASSE     :String[40];
    PLZ         :String[7];
    ORT         :String[40];
  end;

//Ungefähre Verwendung:

procedure TForm1.Button1Click(Sender: TObject);
var
  li:TList;
  sd:PStammDaten;
begin
  li:=TList.Create;
  sd:=New(PStammdaten);
  sd.TITEL :='Hugo';

  li.Add(sd);
end;