[Giniromero]

Hola a todos,

con todo lo que me habeis mandado estoy montando lo que necesito, muchas gracias lo primero pues me está siendo de mucha ayuda, el problema es que tengo problemas al compilar el programa, pues me dice que:

[Error] Fxmain.pas(3404): Incompatible types: 'Cardinal' and 'TSearchRec'

En el código:

procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
   if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin
      repeat
       if (SR.Attr = faDirectory) then begin
           FileList.Add(SR.Name);
       end;
      until FindNext(SR) <> 0;
      FindClose(SR);
   end;
end;

y se para marcando:

FindClose(SR);

Sin embargo en el "Topic Search" de delphi, hay un ejemplo que tambien pone aquí este tipo de dato, y no un cardinal.
Muchas gracias por la ayuda.

virginia Romero