一个小问题

Question

我用下面得程序遍历目录下得所有文件，但为何要报错，请大家指教procedure TForm1.BitBtn2Click(Sender: TObject);
var
  sr: TSearchRec;
  find : WIN32_FIND_DATA;
  tmpStr : String;
  file1 : PChar;
  ff : Integer;
  temp : Boolean;
  tmpStrs : TStringList;
  Attr,I : Integer;
  findfile : AnsiString;
begin
  GetCurrentDirectory(255,file1);
  tmpStr := StrPas(file1)+'\Log\*.txt';
  strpcopy(file1,tmpStr);
  ff := FindFirst(tmpStr,faAnyFile,sr);
  if ff = -1 then Exit;
  while ff = 0 do begin
  Memo1.Lines.Add(sr.Name);
  ff := FindNext(sr);
  end;
  FindClose(sr);  //showmessage(findfile);
end;

Answer 1

GetCurrentDirectory(255,file1);{file1实例创建了吗?}
  tmpStr := StrPas(file1)+'\Log\*.txt';
  strpcopy(file1,tmpStr);
  ff := FindFirst(tmpStr,faAnyFile,sr);
  if ff = -1 then Exit;
  while ff = 0 do begin
  Memo1.Lines.Add(sr.Name);
  ff := FindNext(sr);
  end;
  FindClose(sr);  //showmessage(findfile);