Strings zerlegen in 3 Stringlisten

[Jelly]

Bist Du sicher, dass TStringList das ist, was Du brauchst ?

Ich geh mal davon aus, du willst die Adressdaten irgendwie laden um dann damit zu arbeiten. Da sind TStringList sicherlich nicht die erste Wahl. Wenn morgen eine Spalte dazu kommt, erstellst Du dann eine neue StringList? Du speicherst zusammenhängende Daten (Adressen) in 3 unterschiedlichen Objekten. Das nenn ich ungeschickt.

Meine erste Wahl, wäre das Anlegen einer Klasse, die als Attribute Name, Nummer und Status hat. Nenn die Klasse TKontakt.

Delphi-Quellcode:

TKontakt = class
public
    Name, Nummer, Status : string ;
end ;

Weil es mehrere Kontakte geben wird, kannst Du diese in einer Liste verwalten. Am schnellsten ist dafür die TObjectList geeignet. Ellegant gehts auch mit TCollection.

Dieser Liste kannst Du dann beliebige Objekte zuordnen, also auch vom Typ TKontakt. Etwa so:

Delphi-Quellcode:

var
  Kontakte : TObjectList ;

procedure Add ;
var
  Kontakt : TKontakt ;
begin
     Kontakt := TKontakt.Create ;
     // Jetzt Kontakt füllen
     Kontakt.Name := '' ;   // aus deiner Textfile lesen
     Kontakt.Nummer := '' ;
     Kontakt.Status := '' ;
     Kontakte.Add (Kontakt) ;
end ;

Damit hast Du, sofern du das Beispiel noch etwas ausarbeitest, eine schöne sauber Datenstruktur, mit der du machen kannst was dir beliebt.