Obtiene una parte de una cadena, se le pasa como parámetro la cadena de la que extraer, la posición inicial desde la que se empezará a obtener la subcadena y la posición final hasta la que llegará.
Un 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 System
