Ошибка при открытии диалога чтения файла.

[Аватар]

Ёлы-палы. Сто раз одно и тоже. А в AssignFile полный путь кто поставит?

[Illusiony]

Здесь?

if FileExists(ExtractFilePath(Application.ExeName)+'../output_log.txt') then begin
    AssignFile(ff,ExtractFilePath(Application.ExeName)+'../output_log.txt');//<--

И как сделать чтобы начальный каталог в OpenDialog был текущий расположения программы?
В свойстве InitialDir
ExtractFilePath(Application.ExeName ) ничего не дает.

[Аватар]

if FileExists(ExtractFilePath(Application.ExeName)+'output_log.txt') then begin
    AssignFile(ff,ExtractFilePath(Application.ExeName)+'output_log.txt');

[Illusiony]

Сообщение от Аватар

if FileExists(ExtractFilePath(Application.ExeName)+'output_log.txt') then begin
    AssignFile(ff,ExtractFilePath(Application.ExeName)+'output_log.txt');

У меня файл 'output_log.txt находится не в текущей директории а выше.
Так что:

if FileExists(ExtractFilePath(Application.ExeName)+'../output_log.txt') then begin
    AssignFile(ff,ExtractFilePath(Application.ExeName)+'../output_log.txt');//<--

правильно.

И как сделать чтобы начальный каталог в OpenDialog был текущий расположения программы?
В свойстве InitialDir или FileName
ExtractFilePath(Application.ExeName ) +'файл'
ничего не дает.

В коде перед вызовом OpenDialog

dlgOpen1.FileName:=ExtractFilePath(Application.ExeName)+'Save_deck_1.txt';

Вроде норм теперь.