Text mit StringList separieren

ts := TStringList.Create;

ts.Delimiter := '~';
ts.QuoteChar := '"'; // Achtung ist standardmäßig ("). Ein ungenutztes Zeichen verwenden wenn es Probleme gibt.
ts.StrictDelimiter := true;

ts.DelimitedText := '"Spalte 1"~"Spalte 2"~"Spalte 3"';

for i := 0 to ts.Count -1 do
showMessage( ts.Strings[i] );

ts.Free;

Schreibe einen Kommentar