Bezeichnungen eines Records über Item ermitteln

[mkinzler]

zieh sie raus: also in der Klassendefinition nur den Kopf und später im Implementationsteil die Implementierung

Delphi-Quellcode:

type
  ...
  TStammdaten = class
     ..
     Items: Array of TStammDatum;
     ..
     procedure add ( wert: TStammdatum);
     ...
  end;

procedure TStammdaten.add ( wert: TStammdatum);
     var
        pos: Integer;
     begin
        pos := Length( items) +1 :
        SetLength( Items, pos);
        Items[pos] := Wert; 
end;