Strings zerlegen

[ibp]

...

Delphi-Quellcode:

 s:='1, "Text"[TABULATOR][TABULATOR], ""';
  repeat
    position:=pos('"',s);
    if position>0 then
    begin
      delete(s,1,position);
      position:=pos('"',s);
      text:=copy(s,1,position-1);
      delete(s,1,position);
    end;
  until position<1;

[edit] fehler beseitigt... [/edit]