| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

поиск

malij ©   (2004-12-10 16:34:00) 

как узнать путь к заданной папке, мне надо написать типа такой функции

function ExtractDirPath(DirName:string):string;

---

malij   (2004-12-10 17:29:00) [1]

о блин дружище так еще луче

---

pitersky   (2004-12-10 17:23:00) [2]

кртксть -- с-стра т-нта :)

---

begin...end   (2004-12-10 17:22:00) [3]

Забавно

---

pitersky   (2004-12-10 17:16:00) [4]

ExtractFileDir(S1) вернет тебе
C:\Folder1\Folder2\MyFolder

ExtractFileDir(ExtractFileDir(S1)) - 'C:\Folder1\Folder2'

---

malij   (2004-12-10 17:13:00) [5]

оооооо   пасибо

---

begin...end   (2004-12-10 17:08:00) [6]

> [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.

---

pitersky   (2004-12-10 17:06:00) [7]

>ну хорошо а как тогда  в этом случаи , у меня есть путь к EXE

так есть путь к exe или нет?

---

malij   (2004-12-10 16:56:00) [8]

function ExtractFileDir(const FileName: string): string;
подойдет?нет не подойдет ей же как параметр передается имя файла , а если у меня в папке ней файлов или я незнаю их имет, а вот с FindFirst/FindNextсейчас попробую

---

Александр Иванов   (2004-12-10 16:52:00) [9]

Результатом работы такой ф-ии может быть TStringList.

Используй FindFirst/FindNext.

---

pitersky   (2004-12-10 16:52:00) [10]

function ExtractFileDir(const FileName: string): string;
подойдет?

---

pitersky   (2004-12-10 16:51:00) [11]

А что если есть папки
C:\Path1\MyFolder
C:\Path2\MyFolder
Какой путь из двух тогда нужен?

А вообще есть функции FindFirst и FindNext

---

malij   (2004-12-10 16:47:00) [12]

ну хорошо а как тогда  в этом случаи , у меня есть путь к EXE, как поднаться на уровень выше

---

malij   (2004-12-10 16:45:00) [13]

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

---

begin...end   (2004-12-10 16:42:00) [14]

> [2] malij   (10.12.04 16:40)

В общем случае это невозможно, потому что папок с такими именами на диске может быть несколько.

---

malij   (2004-12-10 16:40:00) [15]

да именно так

---

begin...end   (2004-12-10 16:38:00) [16]

> malij   (10.12.04 16:34)

В смысле - имея только имя папки (типа MyFolder) получить путь к ней (типа C:\Folder1\Folder2\MyFolder) ?

---

Наверх