掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
在庫管理 (ID:368)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
整数型の変数（仮にMonoとする）をチェックして0になったら 修了するとすれば private var Mono:integer; //Cardinalにしない方が良い /////////////// dec(Mono,1);//1個マイナス if Mono<=0 then begin showmessage('なくなりました'); exit; end; Textとボタンの関係がよくわかりませんが Textに個数、ボタンが確定とすれば procedure TForm1.Button1Click(Sender: TObject); var N,Chk:Shortint; begin //textの内容を代入。整数でなければ11になる N:=strtointdef(Edit1.txt,11); if (N>10)or(N<1) then begin showmessage('1〜10個、又は整数を入力してください'); exit; //再入力のため処理中止 end; if (Mono>=1)and(Mono-N<=0)then begin showmessage('あと'+inttostr(Mono)+'個で売り切れです'); N:=Mono; end; dec(Mono,N); //正規注文。N個をマイナス //以下,変数Monoを使って処理する end; こんな感じでは、ダメですか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.