Delete duplicates from list

[DeddyH]

^^ Ich habe das jetzt nochmal ins Reine geschrieben und versucht, dabei möglichst simpel zu bleiben.

Delphi-Quellcode:

procedure DeleteDuplicates(const List: TStrings);
var
  CurrentIndex, FollowingIndex: integer;
begin
  Assert(Assigned(List));
  List.BeginUpdate;
  try
    CurrentIndex := 0;
    while CurrentIndex < List.Count - 1 do
      begin
        for FollowingIndex := List.Count - 1 downto CurrentIndex + 1 do
          if List[CurrentIndex] = List[FollowingIndex] then
            List.Delete(FollowingIndex);
        Inc(CurrentIndex);
      end;
  finally
    List.EndUpdate;
  end;
end;

procedure DeleteDuplicatesCaseInsensitive(const List: TStrings);
var
  CurrentIndex, FollowingIndex: integer;
begin
  Assert(Assigned(List));
  List.BeginUpdate;
  try
    CurrentIndex := 0;
    while CurrentIndex < List.Count - 1 do
      begin
        for FollowingIndex := List.Count - 1 downto CurrentIndex + 1 do
          if AnsiLowerCase(List[CurrentIndex]) = AnsiLowerCase(List[FollowingIndex]) then
            List.Delete(FollowingIndex);
        Inc(CurrentIndex);
      end;
  finally
    List.EndUpdate;
  end;
end;

Wer mag, kann auch auf StrUtils u.a. zurückgreifen, so sollte es aber schon funktionieren.

[sx2008]

Die äussere For-Schleife hat aber mehr Durchläufe als nötig.
Ich würde da eine While-Schleife verwenden, die dann abbricht wenn es nichts mehr zu tun gibt.
Ungetestet:

Delphi-Quellcode:

CurrentIndex := 0
while CurrentIndex < List.Count - 1 do
begin
  for FollowingIndex := List.Count - 1 downto CurrentIndex + 1 do
    if List[CurrentIndex] = List[FollowingIndex] then
      List.Delete(FollowingIndex);
  Inc(CurrentIndex);
end;

Hätte die Stringliste z.B. 1000 identische Einträge würde die While-Schleife schon nach einem Durchlauf abbrechen, während eine For-Schleife alle restlichen 999 Einträge erfolglos durchtesten würde.

[DeddyH]

Stimmt, ich hatte vergessen, dass for die Anzahl nur einmalig ermittelt.

[edit] Korrigiert [/edit]

[Iwo Asnet]

Das selbst in soetwas scheinbar banalem der Teufel (nun ja, ein Teufelchen) im Detail stecken kann...