一款工厂企业的几何测量软件，可对简单的几何图形，进行自动计算，包含三角函数，数学函数，如：圆锥度，相交值，TAN值-f 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( 错误信息 )