Работа с каталогами

← →
Shamansky (2004-12-22 21:17) [0]

Кто-нибудь знает как можно поменять текущий каталог на другой, надо скопировать файл в каталог, а как зайти в этот каталог не знаю, с абсолютным адресом работать не хочется.

← →
Sun bittern © (2004-12-22 21:18) [1]

ФАК - поиск файлов, там же и выяснится, как каталог отыскать.

← →
Fay © (2004-12-22 21:21) [2]

1) Бред какой-то.
2) Не хочется - попроси маму.

← →
begin...end © (2004-12-22 21:25) [3]

> Shamansky (22.12.04 21:17)

> как можно поменять текущий каталог на другой

ChDir

← →
Shamansky (2004-12-22 21:26) [4]

Да нет каталог я найти могу, как на него указатель дать, чтобы
код savetofile("cvxvcvxv.txt"); сохранял уже в этот каталог

← →
Fay © (2004-12-22 21:32) [5]

savetofile("x:\path\cvxvcvxv.txt");

← →
Sun bittern © (2004-12-22 21:38) [6]

>>
Да нет каталог я найти могу, как на него указатель дать, чтобы
код savetofile("cvxvcvxv.txt"); сохранял уже в этот каталог

И всетаки не ясно. По вашим словам одно взаимно исключает другое :). Каталог найти вы можете, а указать его путь - нет. Это как?

← →
Shamansky (2004-12-22 21:39) [7]

В том то и дело, что это абсолютный путь, а как дать относительный, то есть относительно исполняемого файла я не помню

← →
Fay © (2004-12-22 21:40) [8]

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

← →
Fay © (2004-12-22 21:41) [9]

На каталог выше
SaveToFile(ExtractFilePath(ParamStr(0))+"..\cvxvcvxv.txt")

← →
Gero © (2004-12-22 21:41) [10]

ChDir("X:\Path");
SaveToFile("cvxvcvxv.txt");

← →
Fay © (2004-12-22 21:42) [11]

2 Gero © (22.12.04 21:41) [10]
Нет никаких гарантий того, что текущий каталог не изменится между
ChDir("X:\Path");
и
SaveToFile("cvxvcvxv.txt");

← →
begin...end © (2004-12-22 21:46) [12]

> [11] Fay © (22.12.04 21:42)

Нет никаких гарантий того, что текущий каталог не изменится между передачей параметра в метод SaveToFile и началом (а тем более - концом) исполнения операторов этого метода.

:-)

Shamansky (22.12.04 21:39) [7]

Нужен текущий каталог программы?

← →
Shamansky (2004-12-22 21:50) [14]

Спасибо, помогло

Интересно, что именно помогло. И от чего.

function TForm1.AddMyPath(Path: string): string;
const
MyPath = "C:\";
begin
Result := MyPath + Path;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
BitBtn1.Caption := AddMyPath("sdfs");
SaveToFile(AddMyPath("cvxvcvxv.txt"));
end;

← →
Shamansky (2004-12-22 21:55) [17]

Помогло вот это: chdir("dirname");

2 Shamansky (22.12.04 21:55) [17]
Удачи тебе большой. Очень скоро она тебе пригодится.

Работа с каталогами Найти похожие ветки