Проблема со сменой каталогов при чтении файла

[Mad_Lord]

Доброго времени суток, товарищи форумчане! Очень прошу найти минутку и объяснить мне как поступить в следующей ситуации: мне необходимо считать информацию из файла save.txt , который лежит в папке с ехе-шником, произвести с ней некоторые операции и записать в файл. Вот начало и конец этой функции :

...

 assignFile(input, 'save.txt');
 reset(input);
 readln(input);

 kalendar_razmer:=0;

 While not EOF(input) do Begin
                         inc (Kalendar_razmer);
                         Setlength (kalendar, Kalendar_razmer);
                         readln (input, kalendar[Kalendar_razmer - 1]);
                         End;
 CloseFile (input);
 //считывание окончено

...

//показать меню сохранения
SaveDialog1.FileName := FName;
if SaveDialog1.Execute then
 begin
  FName := SaveDialog1.FileName;
  Memo1.Lines.SaveToFile(FName+'.txt');
 end;
//файл записан

Проблема состоит в следующем - 1 раз программа выполняется без каких-либо нареканий с моей стороны, но потом, если новый файл сохранен не в папке с прогой, то при повторном выполнении операции с другими данными появляется уведомление об ошибке: файл save.txt вроде бы как не найден. Пожалуйста подскажите, можно ли как-то сбросить путь открытия файла до коренной папки программы, причем адрес должен быть относительным т.е. не привязанным к конкретным дискам и адресам. Заранее спасибо!

[Аватар]

ExtractFilePath(Application.ExeName )+'save.txt'
Да и в SaveDialog можно не менять рабочий каталог, там в свойствах управляется этим

[Serge_Bliznykov]

вне зависимости от того, как настроен SaveDialog

Да и в SaveDialog можно не менять рабочий каталог, там в свойствах управляется этим

всё равно, если нужно обращаться к файлам/папкам, которые лежат рядом с EXE-шником, нужно делать:

.... ExtractFilePath(Application.ExeName)+'\save.txt'

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

[Mad_Lord]

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

Да и в SaveDialog можно не менять рабочий каталог, там в свойствах управляется этим

Спасибо за совет, изменил свойство ofNoChangeDir - теперь все отлично)

[Serge_Bliznykov]

Вы зря проигнорировали мой пост. я объяснил, почему нужно обязательно получать полный путь к папке с программой...