 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Как получить из пути имя папки? 
| Тимон и Пумба |
|
|||
|
Unregistered |
Привет. Подскажите как получить имя последней папки из пути? Например, есть путь:
C:\windows\hack\my_dir Как получить имя папки my_dir? |
|||
|
||||
Загрузка ...
| <Spawn> |
|
|||
 Око кары:)  Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
ExtractFileName(File:string)
Это сообщение отредактировал(а) <Spawn> - 29.1.2003, 05:13 -------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
| Dexter |
|
|||
 Эксперт Профиль Группа: Экс. модератор Сообщений: 1562 Регистрация: 2.7.2002 Где: Москва, Бирюлево Репутация: 1 Всего: 4 |
ИМХО, не поможет
-------------------- The only thing you really know about me is... ...that's all you'll ever know |
|||
|
||||
| <Spawn> |
|
|||
|
Око кары:) Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
Упс) И точно ведь. Я подумал есу файл нужен.
-------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
| stab |
|
|||
 Эксперт Профиль Группа: Экс. модератор Сообщений: 1839 Регистрация: 1.1.2003 Репутация: 14 Всего: 48 |
Result := Copy(path, LastDelimiter('\', path) + 1, 1000);
-------------------- 6, 6, 6 - the number of the beast. |
|||
|
||||
| Dexter |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 1562 Регистрация: 2.7.2002 Где: Москва, Бирюлево Репутация: 1 Всего: 4 |
Я бы все сделал так, как устроены мои мозги (т.е. криво), то получилось бы что-то типа этого:
var i,j,u: integer; s, d: string; begin s:='C:\windows\hack\my_dir'; for i:=0 to length(s) do if s[i]='\' then u:=i; for j:=u+1 to length(s) do d:=d+s[j]; caption:=d; end; Вроде работает -------------------- The only thing you really know about me is... ...that's all you'll ever know |
|||
|
||||
| <Spawn> |
|
|||
|
Око кары:) Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
Можно и так) Хотя не знаю, что будет быстрее(вариант предложенный Cully или это):
function GetLastDir(str:string):string; var i:integer; begin for i:=length(str) downto 1 do if str[i]='\' then begin Result:=Copy(str,i+1,Length(str)-i+1); Break; end; end; Это сообщение отредактировал(а) <Spawn> - 29.1.2003, 05:53 -------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
| Dexter |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 1562 Регистрация: 2.7.2002 Где: Москва, Бирюлево Репутация: 1 Всего: 4 |
ExtractFilePath работает для C:\windows\hack\my_dir.
А для C:\windows\hack\my_dir\ не работает. Так что впринципе и его можно применить -------------------- The only thing you really know about me is... ...that's all you'll ever know |
|||
|
||||
| Тимон и Пумба |
|
|||
|
Unregistered |
Мужики, Спасибо!!!
|
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0525 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |