For-In - Index rauskriegen

[glkgereon]

Hiho,

Ich nutze mittlerweile mal endlich die For-In-Schleife, ein richtig cooles Feature, und stoße nun das erste mal auf ein Problem...Folgendes:
Ich habe eine ObjectList und möchte nun ein Element löschen welches eine vorgegebene, eindeutige Bedingung erfüllt.
zu Deutsch: die Dinger haben eindeutige Namen und ich will Element "Hans-Otto" löschen.

folgendes erfüllt den Zweck (hoffentlich)

Delphi-Quellcode:

procedure TApplications.Delete(Titel: String);
var i: Integer;
begin
  for i:=0 to FApps.Count-1 do
  begin
    if TApplication(FApps[i]).Titel=Titel then
      FApps.Delete(i);
  end;
end;

Aber da das da eine ObjectList ist würde ich es eigentlich lieber mit For-In machen (ist natürlich eine reine Spielerei :-) )
auch Folgendes würde wohl funktionieren

Delphi-Quellcode:

procedure TApplications.Delete(Titel: String);
var P: Pointer;
begin
  for P in FApps do
  begin
    if TApplication(P).Titel=Titel then
      FApps.Delete(FApps.IndexOf(P));
  end;
end;

Aber das ist ja jetzt echt nicht Sinn der Sache.
Geht das noch anders oder ist die For-In-Schleife an der Stelle echt am Ende ihrer Möglichkeiten angelangt?

[Apollonius]

Statt FApps.Delete(FApps.IndexOf(P)) könntest du das selbe mit remove machen, das nimmt ein Objekt entgegen und löscht das erste Vorkommen.

[Elvis]

Innerhalb der Lebenszeit eines Iterators sollte die Liste selbst nicht verändert werden.
Je nach Implementierung des Iterators würde sonst nur noch Gaga dabei rauskommen.
Hier ist die umständliche for-to Variante besser/sicherer.

[Dani]

Wenn du dann auch noch von oben nach unten durchiterierst, kannst du eine For-Schleife benutzen...

Delphi-Quellcode:

procedure TApplications.Delete(Titel: String);
var i: Integer;
begin
  for i:=FApps.Count-1 downto 0 do
  begin
    if TApplication(FApps[i]).Titel=Titel then
      FApps.Delete(i);
  end;
end;

[beim Löschen rücken die nachfolgenden Elemente um eine Position nach links]