For-In - Index rauskriegen

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