Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.27;
Скачать: CL | DM;

Вниз

проблема с 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]
Точно!
и как я проглядел :)


 
begin...end ©   (2005-03-14 20:45) [7]

Забавно


 
Fay ©   (2005-03-14 20:45) [8]

я тоже 8)


 
Quattro ©   (2005-03-14 23:32) [9]

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



Страницы: 1 вся ветка

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
3-1109325756
prosoft
2005-02-25 13:02
2005.03.27
ODAC и Oracle Objects проблема


10-1012843591
michelson
2002-02-04 20:26
2005.03.27
JBoss Documentation


6-1102678932
aus
2004-12-10 14:42
2005.03.27
RasDial


14-1110346714
КаПиБаРа
2005-03-09 08:38
2005.03.27
Рынок программ для сотовых телефонов


3-1109362678
ali_tash
2005-02-25 23:17
2005.03.27
как войти в базу FireBird если не знаеш пароля ?