Mega Code Archive

 

Categories / Delphi / Functions

 

Changefileext - change the extension part of a file name sysutils unit

function ChangeFileExt ( const FileName, Extension : string ) : string; Description The ChangeFileExt function changes the Extension value of a file FileName, returning the new value as a string. Related commands ExtractFileExt Extracts the extension part of a full file name ProcessPath Split a drive/path/filename string into its constituent parts Example code : Renaming Unit1.dcu to Unit1.old var oldName, newName : string; begin // Try to rename the current Unit1.dcu to Uni1.old oldName := 'Unit1.dcu'; newName := ChangeFileExt(oldName, '.new'); // Show the old and new values ShowMessage('Old name = '+oldName); ShowMessage('New name = '+newName); end; Show full unit code Old name = Unit1.dcu New name = Unit1.new