Delete strings in ListBox

[taktaky]

Zitat von DeddyH:

Nur der Vollständigkeit halber:str := Copy(str,1,Length(str) - 2);

Ich will löschen und nicht kopieren
Wo ist ListBox1?

[leddl]

Zitat von taktaky:

Ich will löschen und nicht kopieren
Wo ist ListBox1?

Zeig doch endlich mal etwas Eigeninitiative

[DeddyH]

Erst denken, dann posten. Übersetz meinen Code mal ins Deutsche: "Der neue String setzt sich aus einer Kopie des alten abzüglich der letzten 2 Zeichen zusammen". Nun klar? Und die Variable str hab ich einfach frech von meinem Vorposter übernommen.

[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.

[mkinzler]

Hier kannst du jetzt sämtliche Alternativen von oben anwenden z.B.

setLength( dateiname, 5);

[Progman]

if k > 5 then Delete(k,6,Length(k)-5);

[Jelly]

Wie wärs mit
listbox1.items[i] := copy(listbox1.items[i],1,5) ; Bei den ganzen copy-Beispielen war das aber eigentlich nicht schwer zu erraten, oder

[DeddyH]

Er will doch löschen und nicht kopieren

[taktaky]

Zitat von Progman:

if k > 5 then Delete(k,6,Length(k)-5);

Incommpatible Typ !

[Phoenix]

Schonmal was von Denken gehört? Das ist das, was in den grauen Zellen zwischen den Ohren passieren sollte.