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:
Código:
[Error] Fxmain.pas(3404): Incompatible types: 'Cardinal' and 'TSearchRec'
En el código:
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:
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