Eingaben in Listbox edieren

[SimStar001]

Delphi-Quellcode:

var MySelectedText : string;

...

MySelectedText := Listbox1.items[Listbox1.itemindex];

Edit1.Text := copy(MySelectedText,1,pos(',',MySelectedText) - 1);
MySelectedText := copy(MySelectedtext,pos(',',MySelectedtext) + 1,lengfth(MySelectedtext));
Edit2.Text := copy(MySelectedText,1,pos(',',MySelectedText) - 1);
MySelectedText := copy(MySelectedtext,pos(',',MySelectedtext) + 1,lengfth(MySelectedtext));
... usw.