recorrorse ficheros de un directorio

[jmlifi]

Utilizo delphi 7.
Deseo saber, sólo el nombre de todos los archivos (por ejemplo de los dxf) que hay en un directorio:

Ejemplo: en .../DXF
123.dxf
444.dxf
586.dxf
...
...

Como me recorro los ficheros?

[jonmendi]

hola jmlifi!

yo creo que lo puedes hacer usandolas funciones FindFirst y FindNext. Tienes un ejemplo en la ayuda de delphi. El siguiente código te dará una idea de como usarlo:

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var
  searchResult : TSearchRec;
begin
  if FindFirst('C:\*.dxf', faAnyFile, searchResult) = 0 then
  begin
    repeat
      showmessage(searchResult.Name);
    until FindNext(searchResult) <> 0;
  end;
  findclose(searchResult);
end;

Si encuentra un archivo en el path indicado con los atributos especificados (en este caso faAnyFile, mira la yuda), findfirst devuelve 0.

Espero que te sirva

Jon