Strings zerlegen in 3 Stringlisten

[sharpals]

hallo, du benötigst pos( , delete( und eben deine listen.

Du definierst eine texdatei zum lesen.
Danach eine Liste

Z.B : liste :TStringList;

liste := array [0..2] of TStringList.Create; // Transferliste erzeugen
liste.Items.Clear; << lösche die liste

schleife in der du die datei liest
begin
extrahiere den wert >> wert
liste.Add(wert);
end liste zu ende

mach was mit der liste


und zuletzt

liste.free;
[delphi]
// ----------------------------------
var kette:array[0..2] of string;
index:byte
das ausschneiden bei dir sollte sein
for i:=0 to 1
do
begin
kette[I]:=copy(cline,1,pos(',',cline)-1); // ausschneiden und zuweisen
Delete(cLine, 1,pos(';',cline)); // aus der textzeile löschen
end;
kette[3]:=cline // rest
// ----------------------------------