掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
入力された整数の確認をするには？ (ID：12391)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
上のは if InputQuery('数字の入力','整数を入力してください',s) then の１行上に B := [1,2,3,4,5,6,7,8,9,10]; とすると 全部反応しますけど？ 3，7，8，9，10のみ反応なら B := [3,7,8,9,10]; ----------------------------------------------------------- var i : integer; s : string; Dot : Boolean; begin s := Edit1.Text; Dot := True; // 整数ならTrue設定,少数扱う場合は、False設定 if Length(s)=0 then ShowMessage('数字を入力してください'); for i := 1 to Length(s) do begin case s[i] of //'0'..'9' : continue; '0','1','2','3','4','5','6','7','8','9' : continue; else begin if (s[i] = '.')and(not Dot) then begin Dot := True; continue end; if (i =1)and(s[1]='-') then continue; ShowMessage(s+' '+s[i]+' は、数字ではありません' +#13#10 +'数字を入力してください'); Break; end; end; // case end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.