Получение имени файла без расширения

Советы » Тексты » Получение имени файла без расширения

function

GetFileNameWOExt(fn:String):String; begin

Result := Copy(fn, 1, Length(fn)-Length(ExtractFileExt(fn))); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com