Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

qweqweqweqweasd © (2009-11-19 17:34:00)
Как узнать в какой папке находиться файл?

есть путь 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 18:22:00) [1]
> [8] oldman © (19.11.09 18:15)

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

Германн (2009-11-19 18:19:00) [2]

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

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

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

oldman (2009-11-19 18:15:00) [3]

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

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

Омлет (2009-11-19 18:14:00) [4]
> [6] oldman © (19.11.09 17:59)

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

oldman (2009-11-19 17:59:00) [5]

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

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

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

Омлет (2009-11-19 17:58:00) [6]
> [3] {RASkov} © (19.11.09 17:41)

Хитро )

qweqweqweqweasd (2009-11-19 17:44:00) [7]
Спасибо!!!

{RASkov} (2009-11-19 17:41:00) [8]
ShowMessage(ExtractFileName(ExtractFileDir('C:\folder\new\1.txt')));

Омлет (2009-11-19 17:38:00) [9]
1. s[0] не существует.

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

Игорь Шевченко (2009-11-19 17:36:00) [10]

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

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

Наверх

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