Listen vergleichen

[marabu]

Hallo,

ich würde versuchen die visuellen Aspekte außen vor zu lassen:

Delphi-Quellcode:

procedure IntersectStrings(sResult, s1, s2: TStrings);
var
  i: Integer;
begin
  sResult.BeginUpdate;
  sResult.Clear;
  for i := 0 to Pred(s1.Count) do
    if s2.IndexOf(s1[i]) >= 0 then
      sResult.Add(s1[i]);
  sResult.EndUpdate;
end;

Das ist die Vorgehensweise von Christian, nur dass sie keine Referenz auf visuelle Komponenten mehr enthält. Man kann dann so mit sortierten oder Hash-Listen Performanzgewinne realisieren.

Grüße vom marabu