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 ?