Q&A

  • FindFirst에서 에러가..
procedure TForm1.Button1Click(Sender: TObject);



type

TSearchRec = record

Time: Integer;

Size: Integer;

Attr: Integer;

Name: TFileName;

ExcludeAttr: Integer;

FindHandle: THandle;

FindData: TWin32FindData;

end;



var

retv:integer;

fileattrs:integer;

sr:TSearchRec;

aa:string;



begin

retv := FindFirst(pchar(aa), FileAttrs, sr);

FindClose(sr);



end;



이렇게 했는데..



이런 에러가..

[Error] Unit1.pas(46): Types of actual and formal var parameters must

be identical



건강하시어요..



1  COMMENTS
  • Profile
    배불뚝 2000.01.24 23:27
    TSearchRec 는 Sysutils에 이미 정의하여 있더군요(delphi help...).

    같은 타입이라면 다시 정의하지 마시고 그냥 변수선언해서 쓰세요.