Fehlermeldung bei function

[Helmi]

Hallo,

ich hab folgende function:

Delphi-Quellcode:

function GetFolderDate(Folder: string): TDateTime;
var
  Rec: TSearchRec;
  Found: Integer;
  Date: TDateTime;

begin
  Folder := ExcludeTrailingPathDelimiter(Folder);
  Result := 0;
  Found  := FindFirst(Folder, faDirectory, Rec);
  try
    If Found = 0 then
      begin
        Date   := FileDateToDateTime(Rec.Time);
        Result := Date;
      end;
  finally
    FindClose(Rec);
  end;
end;

Wenn ich compilieren will, dann erhalte ich folgende Fehlermeldung:
[Fehler] Updatethread.pas(72): Inkompatible Typen: 'Cardinal' und 'TSearchRec'

Nämlich bei:
FindClose(Rec); Ich weiss aber nicht warum, denn in der Delphi-Hilfe steht das gleiche drin.

Kann mir jemand helfen?

[SirThornberry]

du wirst vermutlich deine Uses bischen verkehrt rum haben so das die falche FindClose funktion genommen wird. schreib mal
SysUtils.FindClose(Rec);

[Helmi]

Zitat von SirThornberry:

du wirst vermutlich deine Uses bischen verkehrt rum haben so das die falche FindClose funktion genommen wird. schreib mal
SysUtils.FindClose(Rec);

Hallo,

Danke für den Tip!

Zuvor hatte ich:

Delphi-Quellcode:

uses
  Classes, SysUtils, FileCtrl, Windows;

und jetzt:

Delphi-Quellcode:

uses
  Windows, Classes, SysUtils, FileCtrl;

und so funktionierts!