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
건강하시어요..
같은 타입이라면 다시 정의하지 마시고 그냥 변수선언해서 쓰세요.