掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
数値が自然数かどうかを確認するには? (ID:43403)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
エディットボックスに入力された数値(文字列)が 自然数かどうかを判定してみました。 procedure TForm1.Button1Click(Sender: TObject); var S: string; begin S := Edit1.Text; if (StrToIntDef(Trim(S), -1) > 0) then // 0 を自然数に含めるなら >= 0 ShowMEssage('Natural number') else ShowMEssage('Not Natural number'); end; "数値として無効な文字列" を別に判断しなければならないのならもう一工夫必要です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.