| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Файловые функции [D7, WinXP]
Kolyan © (2005-01-09 18:04:00)Доброй ночи не спящим!
Функция ExtractFileName() извлекает имя файла с расширением, ExtractFileExt() извлекает расширение файла.
А есть функция, которая бы извлекала только имя файла без расширения?
Kolyan (2005-01-10 05:31:00) [1]Но, интересно, как реализуется показ файлов без расширений, например, в проводнике Windows, когда выбрана настройка "не показывать расширение... файлов"?: ChangeFileExt(FileName,'')?
Kolyan (2005-01-10 05:27:00) [2]> Anatoly Podgoretsky © [3]
ChangeFileExt- это то, что мне как раз надо.
Но, интересно, как реализуется показ файлов без расширений, например, в проводнике Windows, когда выбрана настройка "не показывать расширение... файлов"?
Anatoly Podgoretsky (2005-01-09 18:43:00) [3]ChangeFileExt
Kolyan (2005-01-09 18:31:00) [4]Anonimus ©[1]
Спасибо, посмотрю что получится.
Anonimus (2005-01-09 18:19:00) [5]
function ExtractFileNameWithoutExt(s: string):string;
var ss:string;
l:integer;
begin
ss:=ExtractFileName(s);
l:=length(ExtractFileExt(ss));
result:=copy(ss,(length(ss)-l-1),l);
end;
Ну или что-то в этом роде. посмотри, что получится, поиграйся с выделенными параметрами : copy(ss, (length(ss)-l-1), l)
| |
