Delete strings in ListBox

[taktaky]

Zitat:

Zitat von DeddyH

Nur der Vollständigkeit halber:

Delphi-Quellcode:

str := Copy(str,1,Length(str) - 2);

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

[leddl]

Zitat:

Zitat von taktaky

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

Zeig doch endlich mal etwas Eigeninitiative :roll:

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

Zitat von leddl

Zeig doch endlich mal etwas Eigeninitiative :roll:

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.

Delphi-Quellcode:

setLength( dateiname, 5);

[Progman]

Delphi-Quellcode:

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

[Jelly]

Wie wärs mit

Delphi-Quellcode:

listbox1.items[i] := copy(listbox1.items[i],1,5) ;

Bei den ganzen copy-Beispielen war das aber eigentlich nicht schwer zu erraten, oder :gruebel:

[DeddyH]

Er will doch löschen und nicht kopieren :mrgreen:

[taktaky]

Zitat:

Zitat von Progman

Delphi-Quellcode:

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

Incommpatible Typ !

[Phoenix]

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