Тема: Помогите разобраться
Показать сообщение отдельно
  #6  
Старый 25.07.2009, 01:41
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Извращенцы

Код:
FileName := ChangeFileExt(FileName,'');
Ответить с цитированием