用ListView控件列举指定目录中的文件，以列举C盘文件目录为例子：

青色咖啡 , 2010/01/29 22:51 , delphi基础 , 评论(0) , 阅读(604) , Via 本站原创

 
 procedure TForm1.Button1Click(Sender: TObject); 
var
   SearchRec : TSearchRec; 
   Path : String; 
   Attr : integer; 
   Found : integer; 
begin
   Path := 'c:\*.*';//设定要显示的路径 
   Attr := faAnyFile; 
   Found := FindFirst(Path, Attr, SearchRec);//查找文件 
   while Found = 0 do
   begin
       ListView1.Items.Add; //添加内容 
       ListView1.Items[ListView1.Items.Count-1].Caption := (SearchRec.Name); 
       Found := FindNext(SearchRec); 
   end; 
   FindClose(SearchRec);//停止查找 
end;
 procedure TForm1.Button1Click(Sender: TObject);var   SearchRec : TSearchRec;   Path : String;   Attr : integer;   Found : integer;begin   Path := 'c:\*.*';//设定要显示的路径   Attr := faAnyFile;   Found := FindFirst(Path, Attr, SearchRec);//查找文件   while Found = 0 do   begin       ListView1.Items.Add; //添加内容       ListView1.Items[ListView1.Items.Count-1].Caption := (SearchRec.Name);       Found := FindNext(SearchRec);   end;   FindClose(SearchRec);//停止查找end;