Zwei Listen filtern Denkproblem

[Klaus01]

.. vielleicht ungefähr so, über eine dritte Liste.

Delphi-Quellcode:

  for i:=0 to staedte1.count -1 do
    for j:= 0 to staedte1.count -1 do
      begin
         idx := stadte2.indexOf(staedte1[i]+','+staedte1[j]);
         if idx > -1 then
           begin
             staedteTemp.add(staedte2[idx]);
             staedte2.delete(idx);
           end;
      end;

Grüße
Klaus