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