Obtiene la extensión de un fichero (incluido el «.»).
Ejemplo de utilización:
|
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; |
