IntToStr
Edit1->Text.ToInt();
ShowMessage("Input Error");
Memo1->Clear();
Memo1->Lines->Add("無資料");
Memo2->Text=output;
clock_t begin,end;
begin=clock();
end=clock();
Memo2->Lines->Add("耗時"+FloatToStr((end-begin)/CLK_TCK));
Edit1->Text.ToInt();
ShowMessage("Input Error");
Memo1->Clear();
Memo1->Lines->Add("無資料");
Memo2->Text=output;
clock_t begin,end;
begin=clock();
end=clock();
Memo2->Lines->Add("耗時"+FloatToStr((end-begin)/CLK_TCK));