Einträge zweier Listboxen an bestimmten Stellen vergl.

[nahpets]

Hallo,

ich bin mit nicht sicher, aber meinst Du es eventuell so?

Delphi-Quellcode:

if (listbox1.Items[s][1]) + (listbox1.Items[s][4]) = 
   (listbox2.Items[t][1]) + (listbox2.Items[t][4])then break 
   else 
   if (listbox1.Items[s][1]) + (listbox1.Items[s][4]) = 
      (listbox2.Items[t][7]) + (listbox2.Items[t][10]) then break 
      else 
      if (
           (listbox1.Items[s][1]) + (listbox1.Items[s][4]) <> 
           (listbox2.Items[t][1]) + (listbox2.Items[t][4])
         ) 
         and
         (
            (listbox1.Items[s][1]) + (listbox1.Items[s][4]) <> 
            (listbox2.Items[t][7]) + (listbox2.Items[t][10]) 
         ) then 
               stringgrid1.Rows[0].Add (listbox1.items[s][8] + ' ' + 
               listbox1.items[s][10]  + ' ' + listbox1.items[s][12] + '    v');