проблема с FindFirst

← →
Quattro © (2005-03-14 20:29) [0]

Здравствуйте!....подскажите палуйста, в чем трабл??....пытаюсь сделат ьобычный поисковик файлов на компе и при использовании функции FindFirst выскакивает вот такая вот ошибка компиляции
[Error] Unit1.pas(43): Types of actual and formal var parameters must be identical.....сам код -ниже
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
sr:TSearchRec;
Attr: Integer;
begin
Attr:=faDirectory;
if FindFirst(Edit1.Text,Attr,sr) = 0 then
Edit2.Text:= IntToStr(sr.Size);
FindClose(sr);
end;

end.

← →
P.N.P. © (2005-03-14 20:34) [1]

Здесь все в порядке, видимо ошибка где-то далее.

← →
begin...end © (2005-03-14 20:34) [2]

В приведённом коде ошибок не видно.

← →
Fay © (2005-03-14 20:40) [3]

SysUtils.FindClose(sr); ?

← →
Virgo_Style © (2005-03-14 20:43) [4]

>type
> TSearchRec = record
> Time: Integer;
> Size: Integer;
> Attr: Integer;
> Name: TFileName;
> ExcludeAttr: Integer;
> FindHandle: THandle;
> FindData: TWin32FindData;
> end;

Выкинь это сейчас же :-) Эта структура определена в SysUtils, и именно ее переопределение и приводит к ошибке компиляции. Проверено экспериментально.

← →
Virgo_Style © (2005-03-14 20:44) [5]

P.S. А в следующий раз пиши, на какой строке ошибка возникает.

← →
P.N.P. © (2005-03-14 20:44) [6]

>Virgo_Style © (14.03.05 20:43) [4]
Точно!
и как я проглядел :)

Забавно

я тоже 8)

всем спасибо за советы...и действительно заворкало!!!

проблема с FindFirst Найти похожие ветки