Einträge zweier Listboxen an bestimmten Stellen vergl.

[Ginko]

Juhuu es klappt danke euch

und zwar so :

Delphi-Quellcode:

    for s := 0 to listbox1.items.count -1 do
    begin
      bGefunden := False;
      for t := 0 to listbox2.items.count -1  do
      begin
        if  (pos(listbox1.Items[s][1],listbox2.Items[t][1]) > 0)  and
            (pos(listbox1.Items[s][4],listbox2.Items[t][4]) > 0)  or
            (pos(listbox1.Items[s][1],listbox2.Items[t][7]) > 0)  and
            (pos(listbox1.Items[s][4],listbox2.Items[t][10]) > 0) then
        begin
          bGefunden := True;
          Break;
        end;
      end;
      if not bGefunden then
      begin
         showmessage(listbox1.Items[s]);
      end;
    end;