Delete strings in ListBox

[taktaky]

Zitat von leddl:

Zeig doch endlich mal etwas Eigeninitiative

Beispiel :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, k : Integer;
dateiname : String;
begin
for i := 0 to ListBox1.Items.Count-1 do
dateiname := ListBox1.Items[i];
k := length(dateiname);
if k > 5 then
// ab 6. Zeichen sollen gelöscht werden
<.. hier soll weiter ...>

end;

end.