VC实现的类Excel简易电子表格,增强功能后嵌入到调度主站后台监控系统软件中，现整理奉献个大家。 特点：仿Excel,带一个例子数据文件celldemo.cel,你可运行打开

//显示任意一个目录的文件到TReeview中 unit uTreeViewDemo; interface uses 　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 　Dialogs, ComCtrls, StdCtrls, FileCtrl; const 　SELDIRHELP = 1000; type 　TForm1 = class(TForm) 　　TreeView1: TTreeView; 　　Button1: TButton; 　　procedure Button1Click(Sender: TObject); 　private 　　{ Private declarations } 　public 　　procedure GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode; 　　　　　　　　　　　　 IncludeFiles: Boolean); 　　{ Public declarations } 　end; var 　Form1: TForm1; implementation {$R *.dfm} procedure TForm1.GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode; 　　　　　　　　　　　　　　　　IncludeFiles: Boolean); var 　SearchRec: TSearchRec; 　ItemTemp: TTreeNode; begin 　TreeView1.Items.BeginUpdate; 　if Directory[Length(Directory)] '\' then 　　Directory := Directory + '\'; 　if FindFirst(Directory + '*.*' , faDirectory, SearchRec) = 0 then 　begin 　　repeat 　　　if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] '.') then 　　　begin 　　　　if (SearchRec.Attr and faDirectory > 0) then 　　　　Item := Tree.Items.AddChild(Item, SearchRec.Name); 　　　　ItemTemp := Item.Parent; 　　　　GetDirectories(Tree, Directory + SearchRec.Name, Item, IncludeFiles); 　　　　Item := ItemTemp; 　　　end 　　　else 　　　if IncludeFiles then 　　　if SearchRec.Name[1] '.' then 　　　　Tree.Items.AddChild(Item, SearchRec.Name); 　　until FindNext(SearchRec) 0; 　　FindClose(SearchRec); 　　TreeView1.Items.EndUpdate; 　end; end; procedure TForm1.Button1Click(Sender: TObject); var 　strOpenDir: string; begin 　if SelectDirectory(strOpenDir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then 　try 　　GetDirectories(TreeView1, strOpenDir, nil, True); 　except 　　ShowMessage('错误信息'); 　end; end; end.