文件名称:TAN
介绍说明－－下载内容均来自于网络，请自行研究使用
一款工厂企业的几何测量软件，可对简单的几何图形，进行自动计算，包含三角函数，数学函数，如：圆锥度，相交值，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( 错误信息 )
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( 错误信息 )
(系统自动生成,下载前可以参看下载内容)
下载文件列表
锥度计算\Project1.cfg
........\Project1.dof
........\Project1.dpr
........\Project1.exe
........\Project1.res
........\Unit1.dcu
........\Unit1.ddp
........\Unit1.dfm
........\Unit1.pas
........\Unit2.dcu
........\Unit2.dfm
........\Unit2.pas
锥度计算