TStringList.Equals

Parameter

(Strings: TStrings): Boolean;

Beschreibung

Equals ermöglicht den Vergleich zwischen zwei String-Listen und gibt den Wert True zurück, wenn die Listen identisch sind. Bei dem Vergleich werden nur die String-Einträge miteinander verglichen und nicht die Referenzen der zugeordneten Objekte.

Beispiel

procedure Test_Equals;
var
  list : TStringList;
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  list := TStringList.Create;
  try
    TestObj.Assign(list);
    if (TestObj.Equals(list) = false) 
      then raise ('Test_Equals Fehler')
      else showmessage(BoolToStr(TestObj.Equals(list)));
  finally
    list.free;
    TestObj.free;
  end;
end;