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

В какой папке находиться файл   Найти похожие ветки 

← →
qweqweqweqweasd   (2009-11-19 17:34) [0]

Как узнать в какой папке находиться файл?

есть путь C:\folder\new\1.txt

надо вытащить new из этого пути

написал такую функцию
function GetLastDir(FilePath:widestring):string   ;
var
i:integer;
s:widestring;
begin
s:=ExtractFileDir(FilePath);
if s="" then exit;

for i:=Length(s) downto 0 do
begin
if s[i]="\" then
delete(s,1,i);
end;
result:=s;
end;

Но иногда просиходит ошибка на if s[i]="\" then

---

← →
Игорь Шевченко ©   (2009-11-19 17:36) [1]

> Но иногда просиходит ошибка на if s[i]="\" then


Больно слышать

---

← →
Омлет ©   (2009-11-19 17:38) [2]

1. s[0] не существует.

2. if s[i]="\" then
begin
 delete(s,1,i);
 Break;
end;

---

← →
{RASkov} ©   (2009-11-19 17:41) [3]

ShowMessage(ExtractFileName(ExtractFileDir("C:\folder\new\1.txt")));

---

← →
qweqweqweqweasd   (2009-11-19 17:44) [4]

Спасибо!!!

---

← →
Омлет ©   (2009-11-19 17:58) [5]

> [3] {RASkov} ©   (19.11.09 17:41)

Хитро )

---

← →
oldman ©   (2009-11-19 17:59) [6]

> Как узнать в какой папке находиться файл?
>
> есть путь C:\folder\new\1.txt
>
> надо вытащить new из этого пути


А почему не С:\
А почему не folder?
А почему не folder\new?

К выделенному: есть понятие папка, есть подпапка (простите мне мой русский).

---

← →
Омлет ©   (2009-11-19 18:14) [7]

> [6] oldman ©   (19.11.09 17:59)

Есть директория, а есть полный путь.
Папки - это у секретарш :)

---

← →
oldman ©   (2009-11-19 18:15) [8]

> Омлет ©   (19.11.09 18:14) [7]
> директория


не такого слова в русском языке

---

← →
Германн ©   (2009-11-19 18:19) [9]

> К выделенному: есть понятие папка, есть подпапка


> Есть директория

Есть еще и каталог, но самое главное, что и первое и второе и третье - файл. В этом и хитрость [3] :)

---

← →
Омлет ©   (2009-11-19 18:22) [10]

> [8] oldman ©   (19.11.09 18:15)

http://slovari.yandex.ru/dict/ushakov/article/ushakov/05/us171308.htm
))

---

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

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



Память: 0.47 MB
Время: 0.007 c