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

[Illusiony]

На первой форме запускается таймер на чтение файла без OpenDialog. На модальной форме открываю файл при помощи OpenDialog. Вот такой код на форме1:

if FileExists('../output_log.txt') then begin// Если лог файл существует
    AssignFile(ff,'../output_log.txt');
   Reset(ff,1);
      if not(FileSize(ff)=0) then begin // Если файл не пустой
   CloseFile(ff);// Закрываем файл
//
//
end
     else begin
   CloseFile(ff);// Закрываем файл
   //ShowMessage('Лог файла:output_log.txt пустой. Внутренняя ошибка работы программы'); 
   //Application.Terminate;// Закрываем программу принудительно
   end;
  end
  else begin
  ShowMessage('Лог файла:output_log.txt несуществет. Воспользуйтесь пунктом Faq п.ХХ'); // если лог файла НЕ существует
  Application.Terminate;// Закрываем программу принудительно
  end;

Вот из кода сообщение 'Лог файлаutput_log.txt несуществет. Воспользуйтесь пунктом Faq п.ХХ'
и всплывает.
Такой на модальной:

with dlgOpen1, mmo6 do   // Delphi-manual.ru/les7end.php
if Execute then begin
//AssignFile(f,);
//InitialDir:=GetCurrentDir;
Lines.LoadFromFile(FileName);
end;
St:=mmo6.Lines.Text;//

[Аватар]

if FileExists('../output_log.txt'

У-у, а так:

if FileExists(ExtractFilePath(Application.ExeName)+'output_log.txt') then ...

Да, и OpenDialog еще имеет привычку рабочий каталог менять, если его параметры с умом не задать

PS Полный путь при работе с файлами и в других местах актуален

[Illusiony]

ну тогда вот что:

Вместо output_log.txt менял на '../output_log.txt' результат тот же.

[Аватар]

Дык это уже здесь выдает

AssignFile(ff,'../output_log.txt');

Кому писал про полный путь при работе с файлами? Да и про рабочий каталог?

[Illusiony]

Ну да, совсем я "зеленый", но это вы лишь доказали что программа считает что файла нету, что в принцепе я и так знал ( или догадывался).

[Аватар]

Ни чего не доказывал, а лишь

Полный путь при работе с файлами и в других местах актуален

[Illusiony]

И что без полного пути никуда? Мне нужен относительный путь.

[Аватар]

Относительно чего?

[Illusiony]

места где сама прога лежит.

[Аватар]

ExtractFilePath(Application.ExeName)

Это и есть каталог, в котором лежит программа. А относительный путь задается относительно рабочего каталога. Теперь сделай ярлык на рабочем столе со своим екзешником и не укажи рабочую папку. Какой будет рабочий каталог? Или в проге после любого из файловых диалогов, если в его опциях не позаботиться, какой он будет? Плюс FileExists не понимает '../output_log.txt' , а просто 'output_log.txt' поймет и будет искать в рабочем каталоге. Про рабочий каталог выше