Текущий архив: 2004.12.26;
Скачать: CL | DM;
Вниз
поиск Найти похожие ветки
← →
malij (2004-12-10 16:34) [0]как узнать путь к заданной папке, мне надо написать типа такой функции
function ExtractDirPath(DirName:string):string;
← →
begin...end © (2004-12-10 16:38) [1]> malij (10.12.04 16:34)
В смысле - имея только имя папки (типа MyFolder) получить путь к ней (типа C:\Folder1\Folder2\MyFolder) ?
← →
malij (2004-12-10 16:40) [2]да именно так
← →
begin...end © (2004-12-10 16:42) [3]> [2] malij (10.12.04 16:40)
В общем случае это невозможно, потому что папок с такими именами на диске может быть несколько.
← →
malij (2004-12-10 16:45) [4]блин ты прав , я как-то об этом не подумал, що ж делать
нет я знаю конечо как сделать,но это не красиво бут.
← →
malij (2004-12-10 16:47) [5]ну хорошо а как тогда в этом случаи , у меня есть путь к EXE, как поднаться на уровень выше
← →
pitersky (2004-12-10 16:51) [6]А что если есть папки
C:\Path1\MyFolder
C:\Path2\MyFolder
Какой путь из двух тогда нужен?
А вообще есть функции FindFirst и FindNext
← →
Александр Иванов © (2004-12-10 16:52) [7]Результатом работы такой ф-ии может быть TStringList.
Используй FindFirst/FindNext.
← →
pitersky (2004-12-10 16:52) [8]function ExtractFileDir(const FileName: string): string;
подойдет?
← →
malij (2004-12-10 16:56) [9]function ExtractFileDir(const FileName: string): string;
подойдет? нет не подойдет ей же как параметр передается имя файла , а если у меня в папке ней файлов или я незнаю их имет, а вот с FindFirst/FindNextсейчас попробую
← →
pitersky (2004-12-10 17:06) [10]>ну хорошо а как тогда в этом случаи , у меня есть путь к EXE
так есть путь к exe или нет?
← →
begin...end © (2004-12-10 17:08) [11]> [5] malij (10.12.04 16:47)
> ну хорошо а как тогда в этом случаи , у меня есть путь
> к EXE, как поднаться на уровень вышеuses StrUtils;
var
I: Integer;
S1, S2: String;
begin
S1 := "C:\Folder1\Folder2\MyFolder\MyFile.Exe";
S2 := ExtractFileDir(S1);
for I := Length(S2) downto 1 do
if IsPathDelimiter(S2, I) then
begin
S2 := LeftStr(S2, I - 1);
Break
end;
ShowMessage(S2)
end.
← →
malij (2004-12-10 17:13) [12]оооооо пасибо
← →
pitersky (2004-12-10 17:16) [13]ExtractFileDir(S1) вернет тебе
C:\Folder1\Folder2\MyFolder
ExtractFileDir(ExtractFileDir(S1)) - "C:\Folder1\Folder2"
← →
begin...end © (2004-12-10 17:22) [14]Забавно
← →
pitersky (2004-12-10 17:23) [15]кртксть -- с-стра т-нта :)
← →
malij (2004-12-10 17:29) [16]о блин дружище так еще луче
Страницы: 1 вся ветка
Текущий архив: 2004.12.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.059 c
