Extraer solo nombre de archivo y extensión

[JODELSA]

Saludos, estoy almacenando solo la ruta de mis fotos en una tabla de mysql, y para cargar las fotos llamo de nuevo la ruta a traves del PICTURE OPEN DIALOG, asignado a un componente IMAGE la foto de la manera siguiente:

Image1.Picture.LoarFromFile(´c:\fotos\foto1.jpg´);

Lo que sucede es que quiero almacenar solamente el nombre y la extension del archivo en mi tabla, pero la opcion OpenDialog1.FileName devuelve ademas la ruta completa con los subdirectorios donde se encuentra la foto en cuestion.

Como puedo extraer de un OPENDDIALOG solamente el nombre del archivo con su extension?

[delphi.com.ar]

¿Has visto la función de SysUtils ExtractFileName?

Saludos!

[lucasarts_18]

Empezado por delphi.com.ar

¿Has visto la función de SysUtils ExtractFileName?

Saludos!

Hola, donde puedo ver todas la funciones que encapsula SysUtils, he visto en la ayuda pero no aparece nada...

Saludos.

[delphi.com.ar]

Empezado por lucasarts_18

Hola, donde puedo ver todas la funciones que encapsula SysUtils, he visto en la ayuda pero no aparece nada...

No te entiendo.... ¿Qué versión de Delphi utilizas?

[Perio]

Hola, podes hacerlo a pata tomando cada caracter de la cadena:
FileName[n] de atras para adelante, cuando encontrés el punto FileName[n]='.'
ya recorriste hasta la extencion, y siguiendo hasta la barra FileName[n]='/' tenes el nombre... (Ojo que las cadenas te quedan espejadas, osea en reversa, dalas vuelñta y listo)
No se si me explico.
Pero es mucho mas buena la otra opcion que te dieron.

Saludos Desde argentina

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