|
Адрес файла в Delphi
В общем такая проблема. При сохранении файла в Delphi:
procedure TPerson.Save;
var
ff: f1;
i:integer;
temp1: information;
begin
AssignFile(ff, 'bd.lz');
Rewrite(ff);
for i:=0 to length(Temp)-1 do
begin
temp1:=temp[i];
Write(ff, temp1);
end;
Closefile(ff);
end;
В общем файл bd.lz создается и записывается в каталоге, где лежит сама программа, как мне и нужно. В проге есть еще компонент TImage. Так вот, при загрузки в этот компонент изображения посредством TOpenPictureDialog, и последующего сохранения с помощью описаной выше процедуры, bd.lz сохраняется не в каталог, где лежит прога, а туда, откуда я загрузил изображение. Как сделать, чтобы bd.lz всегда сохранялся в папку с прогой, не зависимо от рисунков? Использовать абсолютные пути не предлагать.
|