Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.49 MB
Время: 0.046 c
9-1093486007
Xerx
2004-08-26 06:06
2004.12.26
Формат моделей


4-1100252261
Cosinus
2004-11-12 12:37
2004.12.26
Как получить Handle окна, находящегося под курсором?


4-1100525998
Рафик
2004-11-15 16:39
2004.12.26
Как можно спрятать свою программу


14-1102114569
i-s-v
2004-12-04 01:56
2004.12.26
ТАК! ЮЩЕНКО!


3-1101663252
Ярослав
2004-11-28 20:34
2004.12.26
Добавление записей в таблицу IB