[Gman]

Всем привет!
Необходимо чтобы при сравнении итемсов 2 листбоксов, текст тех итемсов в листбоксе1, стал красного цвета, которых нет в листбоксе2.

Код:

for i:=0 to ListBox1.Count - 1 do
 for j:=0 to ListBox2.Count - 1 do
  if ListBox1.Items[i]=ListBox2.Items[j] then begin cvt:=i; xcv:=0; break; end else begin cvt:=i; xcv:=1; end;

Код процедуры листбокса1:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var ij,ji:integer;
begin
with (Control as TListBox).Canvas do
 Begin
  if xcv=0 then if index=cvt then font.Color:=clgreen;
  if xcv=1 then if index=cvt then font.Color:=clred;
  FillRect(Rect);
  TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
 end;
end;

Admin: Пользуемся тегами!

ПОМОГИТе пож.! Мучаюсь скока времени!!! Код, что я привёл один из множества вариантов, которые я испробовал - но выходит не то!(((