Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.12.16;
Скачать: [xml.tar.bz2];

Вниз

как вытащить имя файла из пути до него?   Найти похожие ветки 

 
Анна   (2003-11-30 13:58) [0]

Ответьте, плиз на глупый вопрос: как вытащить имя файла из пути до него?


 
Palladin   (2003-11-30 14:06) [1]

В пути к файлу нет имени файла.


 
mfender   (2003-11-30 14:08) [2]

Кажется это ExtractFileName ( const FileName: string ): string


 
Anatoly Podgoretsky   (2003-11-30 14:08) [3]

ExctractFilename(FullPath)


 
hooky-mars   (2003-11-30 14:13) [4]


> Анна (30.11.03 13:58)
> Ответьте, плиз на глупый вопрос: как вытащить имя файла
> из пути до него?

Как это до него? В папке могжет быть мног файлов. Это если из полного пути, то тогда тебе сказали как.


 
NneRreaLl   (2003-12-04 06:12) [5]

Если не хочешь чнрез ExtractFileName, то можно и по другому.
У OpenDialog есть свойство "FileName". Когда указ путь к файлу-- сохрани его куданить. Ты получишь путь с имеем файла.
А дальше pos(del, length...) сама решишь, но лучше всего считаю
вышеописанный метод.


 
Нурик   (2003-12-04 06:36) [6]


> NneRreaLl


Есть ещё один способ, нужно найти файл (путь которого берется через OpenDialog) с помощью FindFirst с параметром типа TSearchRec, а там есть свойство Name. Это выглядит примерно так:
...
var
SearchRec: TSearchRec;
...
if OpenDialog1.Execute then
begin
FindFirst(OpenDialog1.FileName,faAnyFile,SearchRec);
Caption:=SearchRec.Name;
FindClose(SearchRec); //обязательно
end;


 
Clift   (2003-12-04 07:34) [7]

str:=c:\windows\system\file.txt
если нужен file.txt
for i:=length(str) downto 1 do
begin
if copy(str,i,1)="\" then
break;
end;

filename:=copy(str,i+1,length(str)-i)
результат
filename=file.txt


 
Кщд   (2003-12-04 08:54) [8]

Clift © (04.12.03 07:34) [7]
чем ExtractFileName не мил?


 
Anatoly Podgoretsky   (2003-12-04 09:00) [9]

Что бы помучиться и получить проблемы из за ошибок обращения к неопределенной переменнной.



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

Форум: "Основная";
Текущий архив: 2003.12.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
6-52308
SammIk
2003-10-13 21:13
2003.12.16
Прокси в настроиках ИЕ


1-52186
TUser
2003-12-03 13:24
2003.12.16
onTop


1-52250
Alex(orel)
2003-12-04 15:13
2003.12.16
работа с ОС


14-52382
Knight
2003-11-21 22:19
2003.12.16
Прикол, для тех кто под линейкой WinNT...


14-52358
undert
2003-11-21 23:51
2003.12.16
Strings and DOS





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский