|
こんにちは。
TEdit、TButton、TOpenDialog を１セットのファイル名選択のコントロールがあります。
そして、これが１３セットもあります。
ようするに１３ファイルを指定し、データを作成するプログラムがあります。
そして、このプログラム、困ったことに AssignFile(txt1,OpenDialog1.FileName);
のように記述されています。
せめて AssignFile(txt1, Edit1.FileName) であれば、Edit程度なら、ENumWindows、
EnumChildWindowsでどうにかできるというのに。
ラクをするために、ちょっと苦労する・・・はずが、どうあがいても苦労する未来しか
見えない。
どうしてAssignFile(txt1,OpenDialog1.FileName)がわかったかって？
ソースはあるんです。ただ、他の人が作ったプログラムで、コンパイルする環境を
簡単に構築できないので、お手上げなだけです。
さぁ、どうしましょう？
１）おとなしく１３ファイル、順に選択し、処理を行う
２）ボタンクリック、OpenDialog表示、ファイル選択を全て操作する。
３）開発担当者（現在は開発引退）にAssignFile(txt1, Edit1.FileName)にしてもらう。
現時点で、１３ファイル選択を残り４０回くらい繰り返す必要があります。
出力フォルダが固定なので、４０回それぞれフォルダのリネームも必要です。
４）現実逃避する
５）喫茶XRAYに逃げ込む ＜＝イマココ
６）帰る
|