Streng genommen sind sie also nicht wirklich gleich, sondern die Inhalte werden, sofern sie nur bestimmte Abweichungen enthalten, als gleich betrachtet?
Mir fiele da nur sowas in der Art ein:
Delphi-Quellcode:
function TesteListen(sl1, sl2 : TStringList) : Boolean;
var
i : Integer;
begin
Result := sl1.Count = sl2.Count;
if not Result then exit;
i := 0;
repeat
Result := TestString(sl1[i]) = TestString(sl2[i]);
inc(i);
until not Result or (i >= sl1.Count);
end;
TestString sei hierbei eine Funktion, die die Delimiter u. ä. Zeichen eleminiert oder vereinheitlicht, entsprechend den Anforderungen. Könnte also z. B. sowas sein:
Delphi-Quellcode:
function TestString(s : String) : String;
begin
// " und ; ersatzlos "streichen".
Result := AnsiReplaceText(AnsiReplaceText(s,'"',''),';',',');
// Oder: Delimiter ";" wird zu ','
Result := AnsiReplaceText(s,'";"','','');
end;
Eventuell könnte man diese Änderungen aber auch bereits auf sl1.Text bzw. sl2.Text machen und dann nur noch TesteListen aufrufen, ohne dass dort noch Funktionen aufgerufen werden müssen.
Kannst Du im StringList.Text bereits alle Delimiter ... vereinheitlichen, könnte nachfolgen ein MD5-Checksummenvergleich eventuell schneller werden.
Oder wenn Du die Delimiter vereinheitlichen kannst, dürfte anschließend ein
if Stringliste1.Text = Stringliste2.Text then ...
für den Vergleich ausreichen.