Extraer solo nombre de archivo y extensión

[lucasarts_18]

Empezado por delphi.com.ar

¿Qué versión de Delphi utilizas?

Hola:

Utilizo la versión 6.

[lucasarts_18]

Hola Delphi.com.ar :

Ya encontré en la ayuda de delphi las funciones que tiene sysutils.

Gracias .

[[Delphius]]

Si usas ExtractFileName obtendrás el nombre del archivo y su extensión, por ejemplo: "miarchivo.txt"

Ahora, si quieres por otro lado obtener solamente la extensión, puedes usar ExtractFileExt(), de la misma sysutils.

[lucasarts_18]

Empezado por Delphius

Ahora, si quieres por otro lado obtener solamente la extensión, puedes usar ExtractFileExt(), de la misma sysutils.

Podrías haber puesto antes esto.....(Broma), lo que pasa es que estuve creando una función para un proyecto que buscaba la extensión de un fichero sin tener idea de la función que mencionas.

Me habría ahorrado un tiempo, tiempo que me hace falta ahora

Saludos.

[[Delphius]]

lucasarts_18, te habría respondido antes pero no tuve tiempo de acceder a internet antes...

Empezado por lucasarts_18

Me habría ahorrado un tiempo, tiempo que me hace falta ahora

No eres el único que no tiene tiempo... yo tambien ando con falta de ello (y eso que ando de semi-vacaciones)...

Si tienes más dudas, con gusto intentaré ayudarte en lo que pueda... todavía soy medio principiante en esto.

[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;