Главная страница
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.064 c
11-52132
Deimos
2003-04-01 23:39
2003.12.16
помогите начинающему...


3-52108
Pako
2003-11-25 12:02
2003.12.16
SQL


1-52273
MMF
2003-12-03 17:03
2003.12.16
Вставка пункта меню в чужое приложение


3-52097
Inkotex
2003-11-25 15:56
2003.12.16
SQL Запрос


7-52413
Delphi5.01
2003-10-11 20:13
2003.12.16
Формат СД-Рома