掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
在庫管理 (ID：371)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
INIファイルだと楽に出来ます。 下の関数は試していないのでエラーが出るかもしれませんが、こんな感じで処理できます。 TMemIniFileを使うときは、inifilesをuses節に追加してください。 (ファイルのフォーマット) -- 次行から [値段] 商品名1=値段1 商品名2=値段2 商品名3=値段3 [在庫] 商品名1=在庫数1 商品名2=在庫数2 商品名3=在庫数3 -- 前行まで function Buy(ItemName: string; var money): integer; // 購入できたら0 // お金が足りなかったら1 // 在庫が足りなかったら2 // ファイルが開けなかった場合は3 var count, price: integer; Ini: TMemIniFile; begin try Ini := TMemIniFile.Create('商品ファイル.ini'); count := Ini.ReadInteger('在庫', ItemName, 0); price := Ini.ReadInteger('値段', ItemName, 0); //在庫があって値段がないことはないので0。不安ならHigh(price) Result := 1; if count < 1 then Exit; // 在庫が足りない Result := 2; if money < price then Exit; // お金が足りない money := money - price; dec(count); Ini.WriteInteger('在庫', ItemName, count); Result := 0; Ini.Free; except Result := 3; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.