エディットに数字しか入力できないようにするには? (ID:1345)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ど素人な質問で申し訳ありませんが、 ------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var A1:Integer; begin A1:=StrToInt(Edit1.Text); A1:=a1*10; Label1.Caption:=IntToStr(A1); end; -------------------------------------------------- このコードでEdit1に日本語や記号が入力されると、当然、実行時エラーに なってしまいますよね。 この場合に、入力エラーである事を判断し「数字以外の入力はだめよ!」という エラーメッセージを出したいのですが、方法がわかりません。 ヘルプもだいぶ見たんですけど、ギブアップです。 どなたか、よろしくお願いします。