关于文件查找的问题(20分)

stuwei · 2002-08-27

1.按以下方法查找指定目录下的文件，返回的f.name为什么为空呢？ procedure TForm1.Button1Click(Sender: TObject);  var f:TSearchRec; begin  Findfirst('E:/TurboC3/',fahidden+fasysfile+faAnyfile,f);  memo1.Lines.Add(F.Name);   {while  Findnext(F)=0 do    begin     findnext(F);     memo1.Lines.Add(F.Name);   end     end;

aizb · 2002-08-27

if FindFirst('E:/TurboC3/*.*',fahidden+fasysfile+faAnyfile,f) = 0 then     begin {      repeat         memo1.Lines.Add(F.Name);       until FindNext(f) <> 0;} //      或者:       memo1.Lines.Add(F.Name);       While FindNext(f) = 0 do         memo1.Lines.Add(F.Name); ////请注意一定要FindClose否则会浪费资源.       FindClose(F);     end;

LGXing · 2002-08-27

procedure TForm1.Button1Click(Sender: TObject); var   i:Integer;   f:TSearchRec; begin   i:=Findfirst('E:/TurboC3/*.*',fahidden+fasysfile+faAnyfile,f);   while  i=0 do   begin     memo1.Lines.Add(F.Name);     i:=findnext(F);   end; end;

stuwei · 2002-08-31

给分了

关于文件查找的问题(20分)

stuwei

Unregistered / Unconfirmed

aizb

Unregistered / Unconfirmed

LGXing

Unregistered / Unconfirmed

stuwei

Unregistered / Unconfirmed

Similar threads