unbekannte Anzahl Wertepaare = dyn array ?

[Ajintaro]

Hallo DP !

Ich versuche mich an einer Prozedur, die Personendaten in einem Memo erzeugt. Die Daten sind simpel:

(1) Name der Person
(2) Eigenschaft 1, Wert 1
(3) Eigenschaft 2, Wert 2
(n) Eigenschaft n, Wert n

Beispiel:

(1) Horst
(2) Lieblingsfarbe, blau
(3) Größe, 2m

ungetestet:

Delphi-Quellcode:

Procedure AddPerson(pname,eigenschaft1,eigenschaft2,wert1,wert2: string;);
Begin
 Fmain.Memo2.lines.add(pname);
 Fmain.Memo2.lines.add(eigenschaft1+','+wert1);
 Fmain.Memo2.lines.add(eigenschaft2+','+wert2);
End;

//Aufruf
AddPerson('Horst','Lieblingsfarbe','Größe','blau','2m');

Das Problem ist, die Anzahl der Eigenschaften sind unterschiedlich. Wenn ich eine ganze Listbox voller Wertepaare habe:

Code:

Länge=2m
Lieblingsfarbe=blau
Mag Tomaten=nein
Mag Tiere=ja
findet Merkel komisch=unbekannt

mal mit 5 Paaren oder auch 50, wie kann ich meine Prozedur so umschreiben, dass für jedes gefundene Wertepaar (z.B. aus der Listbox) eine eigene Zeile ins Memo geschrieben wird ? Wäre das ein klassischer Anwendungsfall eines einfachen, dynamischen Arrays ?