Sonderzeichen verarbeiten mit StringList

[p80286]

Eine andere Möglichkeit wäre

Delphi-Quellcode:

p:=pos(',',satz);
if p>1 then begin 
  repeat
    liste.add(copy(satz,1,p-1);
    delete(satz,1,p); 
    p:=pos(',',satz);
  until p=0;
end;
liste.add(satz);

als Anregung

Gruß
K-H