Hola compadres,
Tengo un problema con la instrucción FindClose. La uso para detectar archivos junto con FindFirst y FindNext, pero a la hora de cerrar el TSearchRec con FindClose Delphi me da el siguiente error al compilar:
Incompatible types: 'Cardinal' and 'TSearchRec'
El código es bien simple y en uses he añadido FileCtrl...
Código:
...
var
FileSearch: TSearchRec;
...
begin
...
if FindFirst(Path + 'file.txt', faAnyFile and not (faVolumeID or faDirectory), FileSearch) = 0 then
begin
repeat
....
until FindNext(FileSearch) <> 0;
....
FindClose(FileSearch);
end;
...
Buscando en la ayuda de Delphi he encontrado que existe otra instrucción llamada FindClose y cuyo parametro es de tipo Cardinal por lo que me está tomando la sentencia como esa en vez de como un TSearchRec...
¿Que puedo hacer para que no me pase esto?
Un saludo y muchas gracias de nuevo