Файловые функции

← →
Kolyan (2005-01-09 18:04) [0]

Доброй ночи не спящим!
Функция ExtractFileName() извлекает имя файла с расширением, ExtractFileExt() извлекает расширение файла.
А есть функция, которая бы извлекала только имя файла без расширения?

← →
Anonimus © (2005-01-09 18:19) [1]

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)

← →
Kolyan (2005-01-09 18:31) [2]

Anonimus ©[1]
Спасибо, посмотрю что получится.

← →
Anatoly Podgoretsky © (2005-01-09 18:43) [3]

ChangeFileExt

← →
Kolyan (2005-01-10 05:27) [4]

> Anatoly Podgoretsky © [3]
ChangeFileExt - это то, что мне как раз надо.
Но, интересно, как реализуется показ файлов без расширений, например, в проводнике Windows, когда выбрана настройка "не показывать расширение... файлов"?

← →
Kolyan (2005-01-10 05:31) [5]

Но, интересно, как реализуется показ файлов без расширений, например, в проводнике Windows, когда выбрана настройка "не показывать расширение... файлов"? : ChangeFileExt(FileName,"")?

Файловые функции Найти похожие ветки