Pascalの宿題は俺にやらせろ！！Part2at TECHPascalの宿題は俺にやらせろ！！Part2 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト450:デフォルトの名無しさん 06/12/11 23:30:37 Editへの入力からじゃないかな。 ようは数値入力専用Editを作りたいのかと。 OnKeyDownイベントで、いらないキー入力は Key := 0; で無効に出来る。 451:デフォルトの名無しさん 06/12/13 00:32:15 448 ですけど、質問下手ですいません。 具体的に言うと、 program Keisan(input,output); var a,b,wa:integer; begin a:=30; writeln('数字を入力してください'); readln(b); wa:=a+b; writeln('a=',a,' b=',b); writeln('a+b=',wa) end. で実行して、間違ってアルファベットとか打つとエラーになるでしょ？ そうじゃなくって「再度入力してくれ」と表示してもう一回って感じに 自動的に持ってきたいんです。 charでどのキーも入力OKにしてから０～９を数値型に変換するのかなと 考えたんだけど、いまいちやり方わかりません 452:デフォルトの名無しさん 06/12/13 00:51:47 function ReadInt: Integer; var S: strting; begin repeat WriteLn('数字を入力してください'); ReadLn(S); until TryStrToInt(S, Result); end; 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch