Función que estráe el nombre y la extensión de la ruta y nombre de fichero pasados como parámetro.
Ejemplo de uso:
|
1 2 3 4 5 6 7 8 |
function extraerSoloNombreFichero (fichero : string) : string; var ficheroFinal : string; begin ficheroFinal := ExtractFileName(fichero); ficheroFinal := copy (ficheroFinal, 1, pos (ExtractFileExt (ficheroFinal), ficheroFinal) - 1); Result := ficheroFinal; end; |
Unidad SysUtils
