数値が自然数かどうかを確認するには?

解決

Nian-Ci 2012-11-17 23:18:47 No: 43400 IP: 192.*.*.*

入力された数値が自然数かどうかを確認するにはどうすればいいでしょうか?
if文で書けますかね??
お願いします。

編集削除

KHE00221 2012-11-18 08:17:37 No: 43401 IP: 192.*.*.*

入力された数値が BYTE , WORD , DWORD の場合

自然数に0を含めない場合 0 以外の場合自然数

0を含める場合判定自体する必要がない

編集削除

あ 2012-11-18 08:59:07 No: 43402 IP: 192.*.*.*

書けます。
自然数の定義は明確だから、面倒がらなければ関数はすぐ作れます。

編集削除

DEKO 2012-11-18 13:28:13 No: 43403 IP: 192.*.*.*

エディットボックスに入力された数値(文字列)が
自然数かどうかを判定してみました。

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;

"数値として無効な文字列" を別に判断しなければならないのならもう一工夫必要です。

編集削除

Nian-CI 2012-12-02 20:37:21 No: 43404 IP: 192.*.*.*

解決しました!!

皆さん、ありがとうございました!!

編集削除