procedure TForm1.Button1Click(Sender: TObject); var aDate : TDate; aInt : integer; begin try aDate := StrToDate(Edit1.Text); //aDate是一个 TDate 型变量 except ShowMessage('Error! is not Date Value!'); end;
try aInt := StrToInt(Edit2.Text); //aInt是一个 Integer 型变量 except ShowMessage('Error! is not Integer Value!'); end;