"nummerierung" bei TStrings

[glkgereon]

hi
ich hab eine procedure, in der ist unter anderem folgende schleife drin
die soll das abgleichen von zwei TStrings erledigen

Delphi-Quellcode:

for i:=0 to Data1.Count-1 do
   Begin
   If Data1.IndexOf(Data2.Strings[i])=-1
   Then Data2.Delete(i);
   End;

ich hab mir das so gedacht:
data2 beinhaltet alles, data1 nur teile der daten

er geht jedes element durch
wenn es in data1 nicht enthalten ist (-1) dann soll ers löschen

damit er nicht über den rand läuft, läuft er nur bis data1.count-1

aber es kommt zu der fehlermeldung

"ungültiger index (2)" (oder so ähnlich, jedenfalls die klassische meldung für einen overflow)

wo ist mein denkfehler, oder spinnt mein delphi?

ich weiss nämlich absolut nicht weiter

[IngoD7]

Abgesehen davon, dass du es m.E. (auch) von der Logik her schon nicht richtig machst, ist es so, dass du während der i-Schleife aus Data2 Elemente herauslöscht. Die Elemente und Indexe in Data2 rutschen entsprechend runter, die Variable i wird aber immmer weiter hochgezählt. Wenn nun genug gelöscht wird, so ist i irgendwann größer als du noch Elemente in Data2 hast.

[sakura]

Gehe die Schleifew einfach rückwärts durch.

Delphi-Quellcode:

for I := Data1.Count-1 downto 0 do
  ...

......

[IngoD7]

Zitat von sakura:

Gehe die Schleifew einfach rückwärts durch.

Ist logisch trotzdem falsch. Wenn Data1 12 Elemente hat und Data2 derer 16, so werden nur die Data2-Elemente 0 bis 11 überprüft, ob sie in Data1 vorhanden sind. Die Data2-Elemente 12-15 bleiben völlig unberücksichtigt.

[glkgereon]

hätt man drauf kommen können....

mist

naja, thx

gut das ihrs gesehen habt