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.