[Taddy23]

Извиняюсь за вопрос который можно в любой книжке посмотреть, но книжки рядом нету.
Вопрос:
как в процедурe assignfile(f,filename);
где f:textfile
допустим filename:='C:\program Files\delphi\myProg\textfiles\1.txt';

указать путь к фалу чтобы он не зависел от размежщения программы myProg на жeстком диске, а был привязан к папке 'textfile', которая находится на уровень ниже папки 'myProg'?

Спасибо заранее.

[Bars1992]

Тебе надо просто записать относительную ссылку

PHP код:

filename:='\textfiles\1.txt'; 


это при условии что програма запускается с папки myProg

[Aristarh Dark]

Bars1992, Ваш подход в корне не верен.
либо ExtractFilePath(Application.ExeName)+'\textfiles\1 .txt'
либо ExtractFilePath(ParamStr(0))+'\textfiles\1.txt'

[Taddy23]

Спасибо еще раз огромное,работает, мелочь а так жизнь облегчит!