Strings zerlegen in 3 Stringlisten

[bluescreen25]

Zitat von 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.

Das scheint mir ein interessanter Ansatz.
Ich nutze ein Listview zur Darstellung der Namen incl. Icon, welches durch Area deffiniert wird.
Wird im Listview ein Item geklickt, wird die dazugehörige Nummer in einem Label angezeigt und via Bluetooth dem Handy übermittelt....


Das Problem ist noch nicht die Weiterverarbeitung der Daten, es sind in meiner Anwendung nicht allzu viele, aber halt das fehlerfreie Einlesen aus der Txt-Datei bzw auch füllen der Txt-Datei aus den Daten.

Gruß, bluescreen25