FindClose. Error al compilar.

[McK]

Ya si es super curioso... A mí también me funcionaba hasta que agregue una nueva unidad.... si buscas en la ayuda de delphi FindClose justo encima de FindClose function sale FindClose a secas y es ese el que esta usando por defecto mi programa. Me pide la variable hFindFile... en vez de una TSearchRec

los uses que utilizo en la nueva unidad son:

uses
SysUtils, Dialogs, MainFrm, Unit4, Windows, Messages, Variants, Classes, Graphics, Controls, Forms, StdCtrls, Grids, BaseGrid, AdvGrid, AdvGridExcel, ComCtrls, ExtCtrls, Spin, IniFiles, FileCtrl;

Muchas gracias por haberte molestado de todas maneras

[ecfisa]

Hola McK.

Ahora que veo como tenés el órden de inclusión de las units, me doy cuenta...

La función FindClose está definida en la unit SysUtils y tambien en la unit Windows.

En la unit Windows la función esta declarada con un parámetro de tipo Cardinal (handle) y en SysUtils con un parámetro de tipo TSearchRec.

Al estar SysUtils declarada primera, la posterior inclusión de la unit Windows superpone la función, dandote el problema.

Tenés dos formas de solucionarlo:

Cambiando el órden de inclusión.

Código Delphi [-]
uses
  Windows, SysUtils, Dialogs, ...

O calificando la función.

Código Delphi [-]
  SysUtils.FindClose(SR);

Un saludo.

[McK]

Efectivamente!!! Solucionado!!

Mil gracias ecfisa!

[DarkDudae]

Pues justo acabo de encontrarme con este problema y me ha ahorrado un buen rato de investigación.

Muchas gracias a todos.

[Neeruu]

Gracias por la Solución...