Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.16;
Скачать: CL | DM;

Вниз

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

 
Анна   (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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
14-52364
K.o.Z
2003-11-23 00:40
2003.12.16
Drag`n`drop


7-52420
Yot
2003-10-09 11:50
2003.12.16
Handle


14-52355
Alexander Vasjuk
2003-11-24 11:50
2003.12.16
Куда прописать рег. номер Windows?


3-52114
Belocarsk
2003-11-24 06:04
2003.12.16
Помогите чайнику с запросом


14-52356
Varfolomey
2003-11-23 02:56
2003.12.16
Каккой ОС пользуется Билл Гейтс?