Listen vergleichen

[Klaus01]

Das könnte ich mir so vorstellen:

Delphi-Quellcode:

for i:=0 to Listbox1.items.cont -1 do
  begin
    gefunden:=false;
    for j:=0 to Listbox2.items.count -1 do
      begin
        if Listbox1.items[i] = Listbox2.items[j] then
          gefunden:=true;
      end;
    if gefunden then
      // copy listbox1.items[i] -> listbox3
  end;

oder

Delphi-Quellcode:

for i:=0 to Listbox1.items.count -1 do
  if listbox2.items.indexof(Listbox1.items[i]) > -1 then
    // add listbox1.items[i] -> listbox3

Grüße
Klaus