Records dynamisch durchlaufen

[Tonic1024]

Moin...

Erstmal muss ich sagen, dass ich mir bestimmt nicht soviel Gedanken gemacht habe wie Jens... Ist schon ein beachtliches Stück Code... - für mal eben getippt...

Ist vielleicht auch ein wenig unhandlich... Aber ich glaube wir schweifen ab... Nur um das Thema noch mal zu vervollständigen und damit ein weiterer Suchender auch eine Antwort bekommt...

Das war es was ich gemeint hatte.

Delphi-Quellcode:

TRec = record
        name:Array of string;
        nachname:Array of string;
        alter:Array of integer;
       end;

implementation

procedure TForm1.Button1Click(Sender: TObject);
var Daten: TRec;
begin
  setlength(Daten.name,length(Daten.name)+1);
  setlength(Daten.nachname,length(Daten.nachname)+1);
  setlength(Daten.alter,length(Daten.alter)+1);

  Daten.name[0]:='Mick';
  Daten.nachname[0]:='Mack';
  Daten.alter[0]:=23;

  Label1.Caption:=Daten.name[0];
  Label2.Caption:=Daten.nachname[0];
  Label3.Caption:=inttostr(Daten.alter[0]);
end;

Basierte aber darauf, dass ich Frage falsch interpretiert hatte... Das was MichMack wirklich will ist ja mit einem assoziativen Array viel besser gelöst.

assoziatives array
Hash wäre noch so ein stichwort nach dem man suchen könnte...

Bis denne...