Скачать: CL | DM;

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

← →
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 и началом (а тем более - концом) исполнения операторов этого метода.

:-)

---

← →
Sun bittern ©   (2004-12-22 21:46) [13]

Shamansky   (22.12.04 21:39) [7]

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

---

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

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

---

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

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

---

← →
Kolan ©   (2004-12-22 21:53) [16]

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");

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.025 c