Copy (cadena, posicioninical, posicionfinal)

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:

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

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario