Guten abend
Wie kann ich denn den längsten Eintrag einer Listbox anzeigen lassen? Z.B. im TLabel.
Mein Ansatz:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var i:integer;
var target:string;
begin
Label1.Caption := EmptyStr;
for i := 0 to form2.listbox1.Items.Count -1 do
begin
target := Label1.Caption + listbox1.items.Strings[i] + sLineBreak;
Label1.Caption := target;
end;
end;
Jetzt habe ich alle einezel in ein TLabel untereinander angezeigt bekommen.
Ich möchte nänmlich dem längsten Eintrag folgendes hinzufügen: "____________________________"
Weil die namen unterschiedlich lang sind will ich daduchr versuchen die Unterstriche genau untereinander zu kriegen.
So das es ungefähr so aussieht:
Danke im voraus.