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

解決

Nian-Ci 2012-11-18 08:18:47 No: 43400

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

KHE00221 2012-11-18 17:17:37 No: 43401

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

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

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

あ 2012-11-18 17:59:07 No: 43402

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

DEKO 2012-11-18 22:28:13 No: 43403

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

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-03 05:37:21 No: 43404

解決しました!!

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