Главная страница
    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.46 MB
Время: 0.008 c
3-52053
Vemer
2003-11-25 13:28
2003.12.16
Правильное подтверждение транзакции.


14-52383
Vlad Oshin
2003-11-21 16:36
2003.12.16
Михаилов с праздником!


14-52338
~GaMeRd~
2003-11-21 22:04
2003.12.16
компилятор


14-52366
SergP
2003-11-21 20:52
2003.12.16
Коллекция юмора от Rouse_ ©. Куда подевалась?


1-52254
NneRreal
2003-12-04 14:24
2003.12.16
Как сравнить строки в строго определённой последовательности ?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский