void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
Form1->Caption = IntToStr(StrToInt(Edit1->Text) * StrToInt(Edit2->Text));
}
catch(...)
{
ShowMessage("You must specify integer values. Please try again.");
}
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
Form1->Caption = IntToStr(StrToInt(Edit1->Text) * StrToInt(Edit2->Text));
}
catch(...)
{
ShowMessage("You must specify integer values. Please try again.");
}
}