Werte formatieren (listbox)

[Orbmu2k]

Delphi-Quellcode:

procedure Tzuordnen.btnzuoClick(Sender: TObject);
var
  i: Integer;
begin
 Listbox1.Clear;
 for i := 0 to lbzugeordnet.Items.Count - 1 do
    Listbox1.Items.Add(lbzugeordnet.Items[i] + ' ' + DstList.Items[i]);
end;