Delete strings in ListBox

[taktaky]

Hallo,

ich habe eine List in ListBox1 und wollte alle letze 2 Strings löschen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, j : Integer;
begin
for i := ListBox1.Items.Count-1 downto ListBox1.Items.Count-2 do
Delete(ListBox1.Items[i]);

end;

// ich möchte also nicht die Zeilen löschen sondern die letzte 2 Strings in jede Zeile in ListBox löschen

Ich muss also auch in jede Zeile suchen

[Luckie]

Warum eine schleife, wenn du nur die letzten beiden Einträge löschen willst? Und Delete löschte Zeichen aus einer Zeichenkette. Wenn du nur den Text löschen möchtes, dann weise den Items eine leere Zeichenkette zu.

[alzaimar]

Die Eigenschaft 'Items' der Listbox ist ein TStrings-Objekt. Diese Klasse stellt die richtigen Methoden bereit. Schau mal in der Delphi-Hilfe unter TStrings oder der Eigenschaft 'Items' einer Listbox.

[Nuclear-Ping]

Du kannst nicht mit den Zeilen der Listbox direkt arbeiten, bzw. nicht an Delete übergeben, sondern musst die erst in nem String zwischenspeichern, den bearbeiten und dann der ListBox wieder zuweisen.

Grundlagen wissen solltest du ja inzwischen schon genug haben und auch wissen, wie man die Delphi Hilfe benutzt.

[edit]
Achso, verlesen. Dachte du wolltest die letzten zwei Zeichen der Strings löschen ...
[/edit]

[leddl]

Mal davon abgesehen, dass der Quellcode wieder mal totaler Quatsch ist:

Zitat von taktaky:

// ich möchte also nicht die Zeilen löschen sondern die letzte 2 Strings in jede Zeile in ListBox löschen

In jeder Zeile befindet sich nur ein einziger String...

Zitat von taktaky:

Ich muss also auch in jede Zeile suchen

Dann schau dir deinen Quellcode nochmal genau an, das tust du nicht mal ansatzweise...

[DeddyH]

Was willst Du löschen? Die letzten beiden Zeilen oder jeweils die letzten beiden Zeichen je Zeile?

[taktaky]

natürlich die letzte 2 Zeichen je Zeile

Ich versuche nun mit Length, pos

[mkinzler]

setLength()

[Progman]

Delete(Str, Length(str)-1, 2);

[DeddyH]

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