Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-06-2017
Copernico Copernico is offline
Miembro
NULL
 
Registrado: feb 2017
Posts: 10
Poder: 0
Copernico Va por buen camino
Leer archivo sin saber el nombre

Buenos días.

Bueno el nombre del tema creo que lo deja claro. En una carpeta me van dejando periodicamente un fichero de texto (.txt) con nombres diferentes cada vez. El problema es que nunca conoceré el nombre de ese archivo, por lo que hasta donde yo llego, no se leer ese archivo sin conocer el nombre.

Tengo el siguiente trozo de código:

Cita:

procedure TfrVenta.btCargarBalanzaClick(Sender: TObject);

var f : TextFile;

begin

AssignFile(f, ExtractFilePath( Application.ExeName ) + 'NombreDeArchivo');

if FileExists(ExtractFilePath( Application.ExeName ) + 'NombreDeArchivo') then
begin
try

Reset(f);

[...]

Con el siguiente código quiero asignar el archivo (NombreDeArchivo) a la variable f, pero no se como puedo hacer para poder asignar un archivo sin conocer el nombre. Me bastaría con asignarle aquel que tenga extensión .txt, porque es el único archivo que voy a tener con dicha extensión.

Muchas gracias de antemano.

Un saludo.
Responder Con Cita
  #2  
Antiguo 20-06-2017
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Poder: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Puedes hacerlo preguntándole al sistema operativo qué archivos hay en el directorio. Para esto tienes que usar FindFirst, FindNext y FindClose.

Aquí tienes un ejemplo: http://www.delphibasics.co.uk/RTL.asp?Name=FindFirst
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
  #3  
Antiguo 20-06-2017
Copernico Copernico is offline
Miembro
NULL
 
Registrado: feb 2017
Posts: 10
Poder: 0
Copernico Va por buen camino
Perfecto ÑuÑo, muchas gracias por tu atención y celeridad. Ha funcionado a la perfección.
Responder Con Cita
  #4  
Antiguo 20-06-2017
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
También puedes usar este truco de [DEC] que es de hace tiempo, pero funciona muy bien:
http://www.clubdelphi.com/foros/showthread.php?t=80413

Que ya te busca todos los ficheros con una determinada extensión de un directorio y te los almacena en un TStrings. Y que usa las funciones que te ha comentado Ñuño.
__________________
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.
Responder Con Cita
  #5  
Antiguo 20-06-2017
Copernico Copernico is offline
Miembro
NULL
 
Registrado: feb 2017
Posts: 10
Poder: 0
Copernico Va por buen camino
Genial!! muy buenos ejemplos!!

Muchas gracias Neftalí.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Leer JSON sin nombre Ramsay Varios 2 27-09-2016 15:52:52
como leer los nombre de los indices BPL SQL 10 10-12-2014 00:32:14
saber nombre de archivo en OpenDialog lmpadron C++ Builder 5 07-12-2011 00:52:07
saber extensión de un archivo solo conociendo su nombre lucasarts_18 PHP 2 29-01-2008 17:52:06
como saber numero de linea, nombre de archivo,funcion por codigo orfeo OOP 0 30-07-2004 19:42:15


La franja horaria es GMT +2. Ahora son las 01:14:12.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi