Eintrag aus TStringListe löschen

[Michael II]

Ich empfehle dir immer möglichst auf Wiederverwendbarkeit zu achten, indem du solche Aufgaben in eine Prozedur/Funktion auslagerst. Mit der Zeit hast du einen Pool von Funktionen, welche du bei Bedarf einfach nur noch in deinen Code kopieren kannst.

Also etwa so:
Wort:string aus liste:TStringList entfernen:

Delphi-Quellcode:

procedure wort_aus_liste_entfernen( wort : string; liste : TStringList );
var i : integer;
begin
  i := 0;
  while i < liste.Count do
    if liste.strings[i] = wort then liste.Delete( i ) else inc(i);
end;

Dein "Items-Fehler": Fahr mal mit dem Mauszeiger auf TStringList und drücke F1, dann dort unter Eigenschaften und suche nach der Eigenschaft Items. TStringList kennt übrigens die Eigenschaft Strings.

for Schleife: Wie andere bereits erwähnt haben: Du definierst eine for... Schleife. Enthält deine Liste zum Beispiel 1000 Einträge, dann wird deine Schleife 1000 Mal durchlaufen. Wenn du nun innerhalb dieser Schleife Listenelemente löschst, dann greifst du irgendwann via Index i auf Listenelemente zu, welche es an Position i gar nicht mehr gibt.

[Uwe Raabe]

Zitat von Michael II:

Wenn du nun innerhalb dieser Schleife Listenelemente löschst, dann greifst du irgendwann via Index i auf Listenelemente zu, welche es an Position i gar nicht mehr gibt.

Insbesondere werden dann auch nicht mehr alle Strings überprüft. Kommt das Wort nämlich zweimal direkt hintereinander vor, rutscht einem das zweite Vorkommen durch die Lappen.

[Michael II]

Zitat von Uwe Raabe:

Insbesondere werden dann auch nicht mehr alle Strings überprüft. Kommt das Wort nämlich zweimal direkt hintereinander vor, rutscht einem das zweite Vorkommen durch die Lappen.

Natürlich; daran hatte ich auch gedacht (siehe Code: entweder Element löschen oder Index rauf), ich hätt's auch schreiben sollen .

[p80286]

Zitat von Michael II:

Natürlich; daran hatte ich auch gedacht (siehe Code: entweder Element löschen oder Index rauf), ich hätt's auch schreiben sollen .

innerhalb einer for..to Schleife solltest Du bei einer solchen Vorgehensweise auf wenig Gegenliebe stoßen.
a) entweder for i:=liste.count-1 downto 0 do oder
b)

Delphi-Quellcode:

while i<liste.count do
     if Bedingung then liste.Delete(i)
     else inc(i);

c) Die TStringlist kennt keine Items, sondern Strings also statt Liste.Items[i] Liste.Strings[i]. Die Syntax von Liste.Delete ist in beiden Fällen , Tlist, Tstringlist, die gleiche.

Gruß
K-H

[Michael II]

Hallo p80286

danke fürs Zitieren; du hast wahrscheinlich meine Antwort weiter oben nicht gelesen - ich habe ja von for abgeraten und ziemlich genau den gleichen while Code gepostet wie nun du.

...und im gleichen Post auch den Tipp gegeben, mal in die Hilfedateien (oder in die Deklaration von TStringList) zu schauen und nach der (nicht existierenden) Eigenschaft Items zu suchen und Strings empfohlen.

Bin raus - wir drehen uns in der Ellipse.

Gute Nacht...

Gruss
M

[Aviator]

Dann werfe ich noch etwas in den Raum.

Strings ist die Standardeigenschaft von TStringList. Von daher würde auch ein liste[i] reichen.