("Item", q, w); (str == "")
{ch =
}
{(ListBox1-> Items-> IndexOf (str) == -1)
{+ +;
} (ListBox1-> Items-> IndexOf (str)! = -1)
{i = ListBox1-> Items-> IndexOf (str); -> Items-> Delete (i); + +; ch =
} =
} (q> iRowsCount)
{-> Items-> Clear ();
} =
}
{(ListBox1-> Items-> IndexOf (str) == -1 | | str == "")
{+ +;
} (ListBox1-> Items-> IndexOf (str)! = -1)
{i = ListBox1-> Items-> IndexOf (str); -> Items-> Delete (i); + +; ch =
} =
{-> Items-> Clear ();
}
}
} Rowsa = yRowsCount-1; Rowsb = iRowsCount-1; ("??? -??????????? email:" + String (emaildel) + " ; n??? -?? email??????????: "+ String (Rowsa) +" n??? -?? email?????????? ???: "+
{
LPCSTR Text = "?????? ??????? ??? ???? ???? ? ??????????? email? ";
LPCSTR Caption = "ExcelFind";
LPCSTR Text2 = "???????????? ?????? ? ????????????? email? ";
if (MessageBox (Handle, Text, Caption, MB_YESNO) == IDYES)
{(MessageBox (Handle, Text2, Caption, MB_YESNO) == IDNO)
{ShowMessage ("?????????????????????????? email");
Button2-> Click (); (ListBox1-> Count> 0)
{
ShowMessage ("???????????????????????? email");
Button1-> Click ();
}
else
{
ShowMessage ("????????????????????????????? email n?????? ??????????? ");
}
}
{-> Items-> AddStrings (s); ("???????????????????????? email" );
Button1-> Click ();
}
}
}
}
}
}
}
}
// ---------------------------------------- -----------------------------------
