我用FindFirst找c:\mp3下所有的.mp3文件，然后把找的文件名写入到abc.txt中，可是找到的.mp3文件比实际目录中的.mp3总是少一个，这是怎么回事？如何解决？ 程序如下： procedure TForm1.Button1Click(Sender: TObject); var FileRec:TSearchRec; logofile:textfile; begin AssignFile(logofile, 'C:\abc.txt'); Rewrite(logofile); if FindFirst('C:\mp3' '\*.mp3', 71, FileRec) = 0 then begin while FindNext(FileRec) = 0 do begin Writeln(logofile,FileRec.Name); end; end; CloseFile(logofile); FindClose(FileRec); end; 發表人 - coldcoffee 於 2004/01/02 23:25:16

var
  searchResult : TSearchRec;
begin  
  if FindFirst('C:\mp3\*.mp3', faAnyFile, searchResult) = 0 then
  begin
    ....
    repeat
      ShowMessage('File name = ' searchResult.Name);      
    until FindNext(searchResult) <> 0;
    ....
    FindClose(searchResult);
  end;
end;

網海無涯，學無止境! 發表人 - qoo1234 於 2004/01/03 01:10:46