Текущий архив: 2005.01.23;
Скачать: CL | DM;

Вниз

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

← →
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,"")?

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.034 c