Zwei Spalten einer ListBox aus Text-Datei füllen

torsten_156

Hi,
ich habe eine Textdate mit folgendem Inhalt:

eins;pw1;zwei;pw2;drei;pw3;vier;pw4;fünf;pw5;sechs;pw6;sieben;pw7;acht;pw8;neun;pw9;zwhn;pw10

Auf meiner Form habe ich eine ListBox, die zwei Spalten enthält (Text;PW). Nun möchte ich die Textdatei auslesen und jeweils diese Paare in eine Zeile einlesen. Als Trennzeichen habe ich hier ; verwendet. Die Länge des Textes dieser Datei ist variabel. Hat jemand einen Lösungsansatz???

SG
Torsten

sonic_1233

An deiner Stelle würde ich die Struktur der Datei ändern, und für jedes Paar eine extra Zeile spendieren:

eins;pw1
zwei;pw2
drei;pw3

usw. Das würde das Einlesen der Daten erheblich erleichtern.

Und dann über TStringList mit der Funktion LoadFromFile() den Inhalt einlesen.

torsten_156

Hi sonic_1233,
die Struktur der Datei möchte ich nicht ändern, da diese Informationen nicht so wie geschrieben in der Datei zu lesen sind. Denn ich werde diese verschlüsselt abspeichern. Damit niemand auf die Idee kommen kann, wo denn ein Zeilenpaar anfängt/endet, möchte ich diese so wie geschrieben abspeichern.

Aber Danke für den Tip...
Gruß Torsten