Error: Incompatible Types : String and Integer !
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var i : Integer;
begin
while Pos('\', Listbox1.Items[i-1]) > 0 do delete(ListBox1.Items[i-1],1,1);
ListBox2.Items.add(ListBox1.Items[i-1];
end;
Es es mit dem Code leider nicht geklappt!
<>