Бага с opendialog и assignFile

[Horus92]

здравсвуйте делал седня одну программку и наткнулся на багу если создавать и записывать файл через assignfile

i:=1;
AssignFile(f,'1.lol');
rewrite(f);
write(f,i);
closefile(f);

то все идёт нормально файл создаеться и записываеться но если перед тем как нажать кнопку записи открыть какой-то файл через opendialog то почему-то по нажатию на кнопку создания файл не создаеться файл не создаеться.
Вот исходник.

[eoln]

Бага тут нет. Просто при открытии/сохранении файла через диалоги меняется текущая папка. А так как указан относительный путь AssignFile(f,'1.lol'), то файл будет в той папке, где был открыт/сохранён последний файл.

[Horus92]

А как мне сбрасивать папку чтоб сохраняло в папке с exe файлом программы??

[DIgorevich]

AssignFile(f,ExtractFilePath(Application.ExeName)+'\1.lol');

[eoln]

Способов несколько, один из них

AssignFile(f,extractfilepath(application.exename)+'1.lol');