Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Вниз
ExtractFilePath Найти похожие ветки
← →
odyssey (2003-06-02 09:42) [0]Мастера не судите строго (начинающий). Я понимаю, наверное это ерундовый вопрос, но нигде не могу найти на него ответ. При сохранении файла указываю путь - ExtractFilePath(ParamStr(0))+"file.txt"
Как сделать так, чтобы файл сохранялся здесь, но в отдельную папку?
← →
iNew (2003-06-02 09:44) [1]Здесь это где?
← →
odyssey (2003-06-02 09:47) [2]Здесь -это в той папке где находится сама прога. Я так понимаю при использовании ExtractFilePath(ParamStr(0))+"file.txt"
файл сохраняется там же где и ЕХЕ
← →
Lord Warlock (2003-06-02 09:54) [3]Правильно понимаешь.
← →
odyssey (2003-06-02 09:55) [4]to Lord Warlock ты ответ знаешь?
← →
Lord Warlock (2003-06-02 09:57) [5]вопрос сформулируй нормально, я ничего не понял
← →
iNew (2003-06-02 09:59) [6]ExtractFilePath(ParamStr(0))+"\NewPapaka"+"\file.txt".
Только папку надо предварительно создать.
← →
odyssey (2003-06-02 10:06) [7]to Lord Warlock Допустим ехе будет находиться C:\MyProg. Мне необходимо чтобы созданный прогой файл сохранялся C:\MyProg\Files\file.txt Я не могу явно указать путь, так как не знаю где будет находиться прога, поэтому использую ExtractFilePath(ParamStr(0)). Может я что-то не правильно понимаю?
← →
Lord Warlock (2003-06-02 10:07) [8]Ну тогда как написал iNew © (02.06.03 09:59)
ForceDirectories((ExtractFilePath(ParamStr(0))+"\Files")+"\file.txt".
Если подкаталога нет, он будет создан
← →
odyssey (2003-06-02 10:10) [9]to Lord Warlock, to iNew понял спасибо
← →
odyssey (2003-06-02 10:36) [10]Не работает. Если писать так, как подсказал iNew ExtractFilePath(ParamStr(0))+"\NewPapaka"+"\file.txt".
, то делфи воспринимает все вместе \NewPapaka\file.txt как название файла.
Так как подсказал Lord Warlock, выдается ошибка о несответствии типов boolean и string.
← →
Sandman25 (2003-06-02 10:53) [11]ForceDirectories((ExtractFilePath(ParamStr(0))+"\Files");
AssignFile(F, ExtractFilePath(ParamStr(0))+"\Files\file1.txt");
← →
Lord Warlock (2003-06-02 11:07) [12]гм, извиняюсь..
Const MyFolder="\Files";
var Path,FileName: String;
Path:=ExtractFilePath(ParamStr(0))+MyFolder;
if ForceDirectories(Path) then
begin
FileName:=Path+"\file.txt";
...
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c
