掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
在庫管理 (ID:370)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
textがファイルというのを見落としていました procedure TForm1.Button1Click(Sender: TObject); var f:textfile; FName:TFileName; S:String; N:integer; begin FName:='〜なんたら〜.txt'; if fileexists(FName) then begin AssignFile(F,FName); //読み込み reset(F); Readln(F,S); CloseFile(F); //代入減算 N:=strtoint(s); dec(N,1); //書き込み Rewrite(F); Writeln(F,inttostr(N)); Closefile(F); if N<0 then showmessage('売り切れ'); end else Showmessage('No File'); end; こんな意味ですか？ 何種類かある場合は、While not(eof(F)) do などでループする必要があります 又、INIファイルを使ってセクション名で管理した方が簡単かも？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.