Помогите сократить действия c OpenDialog

[DuMaHc]

Помогите сократить действия с OpenDialog, в моей программе сначала прописывается:

if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;

для открытия файла и указания пути файла в Edit1, но потом у меня открывается файл для дальнейшей выгрузки его в StringGrid, с помощью следующих команд:

if OpenDialog1.InitialDir = '' then
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);

Тем самым окно с выбором файла открывается дважды, можно ли сделать так, чтобы и путь прописывался и файл выгружался в Excel после одного выбора файла???

[lomastr_]

но потом у меня открывается файл для дальнейшей выгрузки его в StringGrid, с помощью следующих команд:

этими командами файл открыть не возможно.

[DuMaHc]

Сообщение от lomastr_

этими командами файл открыть не возможно.

Есть вот такой код программы при нажатии на кнопку, требуется сделать, чтобы окно выбора файла открывалось один раз.
[CODE]procedure TForm1.Button2Click(Sender: TObject);
var
ExApp, ExBook, ExSheet : OleVariant;
V : Variant;
C, R, Col, Col1, Col2, Row, Row1, Row2 : Integer;
S, FileName : String;
Sg : TStringGrid;
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;

if O

[lomastr_]

зачем вы 2 раза вызываете диалог - OpenDialog1.Execute?

[DuMaHc]

Сообщение от lomastr_

зачем вы 2 раза вызываете диалог - OpenDialog1.Execute?

в первом случае, прописывается путь к файлу в Edit1, во втором случае для проверки существует ли файл с таким именем.

[evg_m]

если файл выбран (первый вызов), то он существует. И зачем его проверять еще раз(второй вызов)?

[northener]

Сообщение от DuMaHc

в первом случае, прописывается путь к файлу в Edit1

И зачем что-то прописывается в Edit1, если потом это прописанное нигде не используется?
<ТЕЛЕПАТОР ВКЛ>
Если, например, при старте программы или в какой-то иной момент нужно выбрать каталог/папку из которой будут браться файлы для некоей обработки, то лучше воспользоваться не компонентом TOpenDialog, а функцией SelectDirectory
<ТЕЛЕПАТОР ВЫКЛ>