ViaThinkSoft CodeLib
This article is in:
CodeLib → Programming aids → Delphi
function ExtractFileNameWithoutExt(fil: string): string;
begin
result := Copy(ExtractFileName(fil), 1, Length(ExtractFileName(fil))-Length(ExtractFileExt(fil)));
end;
Daniel Marschall
ViaThinkSoft Co-Founder
ViaThinkSoft Co-Founder