FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
¿Cómo puedo tomar la extensión de un archivo?
Hola
¿Cómo puedo tomar la extensión de un archivo?. Es que necesito saberla para copiar ese archivo con la extensión que tenía pero en otra carpeta distinta así como con otro nombre. El archivo lo cargo con TOpenDialog, que tiene una propiedad llamada filter, pero esta me devuelve todas las extensiones que soporta el cuadr de diálogo. Muchas gracias a quien pueda ayudarme. Atentamente Nuri |
#2
|
||||
|
||||
ExtractFileExt unit SysUtils.
El resultado incluye el punto, como bien dice la ayuda...
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#4
|
|||
|
|||
Echale un ojo a estas funciones:
|
#5
|
|||
|
|||
Hola, la propiedad filter es para que a la hora de buscar puedas indicar las extensiones que quieres que te muestre. Esta propiedad la puedes cambiar añadiendo o eliminando extensiones. Por ello si tú por ejemplo solo quieres abrir ficheros .jpg, en diseño edita la propiedad filter, dejando solo esta extensión. En DefaultExt, ponla también.
Una vez seleccionado el archivo, simplemente compara los últimos 3 caracteres de la cadena donde tengas el nombre de fichero, con la función copy, sería algo asi : if ( uppercase(copy(NombreFichero, length(NombreFichero) - 2,3)) ='JPG') then [...] No se si es esto lo que necesitabas. |
#6
|
|||
|
|||
okis
gracias a todos. |
|
|
|