Obtener archivos de un directorio sin extensión

[esocrates]

Gracias por responder.
En realidad no sé cómo implementar el código que Uds.me aportan, es este que es el que uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

 procedure RastreaDir(Dir: string);
 var
    FileSearch:  TSearchRec;
 begin
    chDir ('c:\temp\Cartas');
    FindFirst ('*.*', faDirectory, FileSearch);

    while FindNext(FileSearch)=0 do
    begin
      if (FileSearch.Attr = faDirectory) then
      begin
        if (FileSearch.Name<>'..') then RastreaDir(Dir+FileSearch.Name+'\');
      end else
        
        
        Memo1.Lines.Add(FileSearch.Name);
    end;
    FindClose(FileSearch);
 end;

begin
  RastreaDir('c:\Temp\Cartas\');
 end;

Muchas gracias
Un saludo

[[egostar]]

Hola

Código Delphi [-]
        
        {Pon aqui lo que quieras hacer con los ficheros encontrados}
        {Put here anything to make with the find files}
        Memo1.Lines.Add(ChangeFileExt(FileSearch.Name, ''));

Salud OS

[esocrates]

Empezado por egostar

Hola

Código Delphi [-]
        
        {Pon aqui lo que quieras hacer con los ficheros encontrados}
        {Put here anything to make with the find files}
        Memo1.Lines.Add(ChangeFileExt(FileSearch.Name, ''));

Salud OS

Muchas gracias egostar y dec. Funciona perfectamente.
Un saludo