掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＦＤに格納するには？ (ID：387)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでしょうか。 すでに開いている場合のチェックがわからなかったので、とりあえず開けたらtrue、閉じたらfalseにしてます。 var AlreadyFileOpen: boolean; begin AlreadyFileOpen := False; Repeat try if not AlreadyFileOpen then AssignFile(F, FileName); AlreadyFileOpen := True; Rec := RS1.Item(0,'出荷先NO') + K + RS1.Item(0,'出荷先住所') + K + RS1.Item(0,'出荷先名称カナ') + K + RS1.Item(0,'消費税'); Writeln(F, Rec); inc(i); except if AlreadyFileOpen then CloseFile(F); AlreadyFileOpen := False; if Application.MessageBox('ディスクを変えてください', PChar(Application.Title), MB_OKCANCEL) = ID_CANCEL then break; // キャンセルなら中止 end; if AlreadyFileOpen then CloseFile(F);
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.