Zitat von
DeddyH:
Mal aus dem Hut:Gleich := CompareMem(PChar(sl1.Text),PChar(sl2.Text),Length(sl1.Text));
Was ist, wenn die Zahl der Zeilen übereinstimmt, aber nicht Length(sl1.Text) und Length(sl2.Text)?
Sollte dann wohl vorher geprüft werden.
Also:
Delphi-Quellcode:
If sl1.Count <> sl2.Count then Exit;
If Length(sl1.Text) <> Length(sl2.Text) then Exit;
If sl1.Text <> sl2.Text Then Exit;
und dann in 'ner Schleife oder wirklich per MD5.
Wenn es um sowas wie in Deinem Beispiel geht, dann
Delphi-Quellcode:
sl1.Sort;
sl2.Sort;
if sl1.Text <> sl2.Text then // sind unterschiedlich