kommagetrennten String in Stringliste umwandeln

[Uwe Stachel]

Hallo zusammen,

kann mir jemand den Quellcode einer Funktion nennen, die als Input einen String hat welcher durch Kommas getrennt ist, und als Rückgabe eine Stringliste (TStringList) der Einträge liefert in der Reihenfolge in der die Werte im String stecken.
Beispiel:

function ExtractString(value: string): TStringList;

Eingabeparameter value = 'wert1, wert2, wert3'
Ausgabeparamter: Stringlist[0] = wert1; Stringlist[1] = wert2; Stringlist[2] = wert3

Vielen Dank schon mal!

Grüsse
Uwe

[Jürgen Thomas]

Hallo,
benutze doch Folgendes:

sListe = TStringList.Create();
sListe.CommaText = value;

Viel Erfolg!
Jürge

[Uwe Stachel]

Vielen Dank!
Die Lösung kann manchmal so einfach sein

[Michael Habbe]

Naja, ansonsten eine Funktion bauen:
<pre>
function blabla(werte: String): TStringList;
var
i: Integer;
s: String;
begin
repeat
i := pos(werte, ',');
s := copy(werte, 1, i-1);
delete(werte, 1, i);
result.add(s);
until i = 0;
end;
</pre&gt