Zwei Stringlisten miteinander vergleichen. Wie am besten ?

[DeddyH]

Noch' n Gedicht

Delphi-Quellcode:

function SameContent(const FirstList, SecondList: TStrings): Boolean;
var i, iIndex: integer;
    tempList: TStringList;
begin
  Result := FirstList.Count = SecondList.Count;
  if Result then
    begin
      tempList := TStringlist.Create;
      try
        tempList.Assign(SecondList);
        i := 0;
        while Result and (i < FirstList.Count) do
          begin
            iIndex := tempList.IndexOf(FirstList[i]);
            if iIndex < 0 then
              Result := false
            else
              tempList.Delete(iIndex);
            inc(i);
          end;
      finally
        tempList.Free;
      end;
    end;
end;