Zeile zerlegen und teile in Variablen einfügen

[Torpedo]

Das müsste funktionieren:

Delphi-Quellcode:

line := edit1.Text;
delete(line,1,pos('''',line));
text.Text := copy(line,1,pos('''',line)-1);
delete(line,1,pos('''',line)+1);
typ.Text :=  trim(copy(line,1,pos(',',line)-1));
icon.Text := trim(copy(line,pos(',',line)+1,length(line)-pos(',',line)-2));