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