Schleifen Optimierung möglich?

[thkerkmann]

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