Extraer solo nombre de archivo y extensión

[lucasarts_18]

Empezado por Delphius

Si tienes más dudas, con gusto intentaré ayudarte en lo que pueda

Esto se agradecé...

Si no conoces esta página, visítala http://www.grupoalbor.com

Saludos .

[Perio]

Buenas, proba con una funcion asis:
Saludos

  
function ExtraerFileName(ruta:string):string;
var
  i:integer;
begin
  i:=length(ruta);
  while ruta[i]<>'\' do
	dec(i);
  result:=copy(ruta,i,length(ruta));
end;