Stringlänge in einem Listbox-Eintrag

[Aenogym]

hi und herzlich willkommen in der DelphiPraxis

versuch's mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, temp: integer;
begin
  for i := 0 to listbox1.items.count-1 do
  begin
    if length(listbox1.items[i]) > temp then
      temp := length(listbox1.items[i]);
  end;

  //länge des längsten eintrages anzeigen
  showmessage(inttostr(temp));
end;

edit: und wegen der warnung: du wirst dne code in kylix nicht kompilieren können. dafür solltest du die unit "QStdCtrls" einbinden, die läuft bei beiden compilern (delphi und kylix).

aenogym