Hi,
genau und die variable abbruch braucht man auch nicht
Delphi-Quellcode:
while not Terminated and (i < Sourcelist.Count) do
begin
i := 0;
iFindResult := DestList.IndexOf(SourceList.Strings[i]);
if iFindResult <> -1 then
begin
DestList.Delete(iFindResult);
// Zu einer dritten Liste hinzufügen
end;
inc(i);
end;
und entscheidend ist, dass Destlist sortiert vorliegt, dann läuft IndexOf mit der binären Suche.
Gruss
Thomas