Главная страница
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.034 c
3-1109041953
Киря
2005-02-22 06:12
2005.03.27
Проблема с отображением кириллицы


1-1110970017
Studentas
2005-03-16 13:46
2005.03.27
Как уничтожить все програмой запушеные Thread ы?


1-1110772305
NEW_USER
2005-03-14 06:51
2005.03.27
Как определить проги запускаемые из Администр->Службы?


3-1109212309
PKT
2005-02-24 05:31
2005.03.27
Выбрать записи с одинаковыми значениями полей


3-1109685243
grav
2005-03-01 16:54
2005.03.27
Сортировка записей типа список в Word