Zitat:
var
i: Integer;
begin
Label1.Caption := '';//Label leeren
for i := 0 to Pred(Listbox1.Items.Count) do//alle Einträge durchgehen
Label1.Caption := Label1.Caption + Listbox1.Items[i] + ' 87' + sLineBreak;
//aktuellen Eintrag, die '87' und einen Zeilenumbruch anhängen
end;
Leider funktioniert das nicht, ganz, es werden nicht alle einträge in der listbox gezeigt, sondern nur den eintrag, der zuletzt hinzugefügt wurde.
