用树型结构表示科目代码的一种高效算法

用树型结构表示科目代码的一种高效算法(3) Screen.Cursor:=crDefault;
end;
//以上函数将Code.db表中的科目代码和科目代码名称显示出来

//下面函数的功能是返回一代码的级数，
参数sFormat传递科目代码结构；
//参数sCode传递某一科目代码
function TForm1.GetLevel
(sFormat,sCode:String):Integer;
var i,Level,iLen:Integer;
begin
Level:=-1;//如果代码不符合标准，则返回-1
iLen:=0;
if (sFormat< >'')and(sCode< >'')then
for i:=1 to Length(sFormat) do
begin
iLen:=iLen+StrToInt(sFormat[i]);
if Length(sCode)=iLen then
begin
 Level:=i;
 Break;
end;
end;
Result:=Level;
end;
//上面函数的功能是返回一代码的级数

procedure TForm1.FormCreate(Sender: TObject);
begin
with tblCode do
begin
DatabaseName:=ParamStr(1);
//使tblCode的DatabaseName指向应用程序所在的路径
TableName:='Code.DB';  //指向数据表Code.DB
Open;
IndexFieldNames:='aCode';
//按字段aCode排序(不要漏掉)
end;
LoadCode(tblCode);
end;

procedure TForm1.btnCloseClick(Sender: TObject);
begin
Close;
end;

end.

---- 其中，常量ScodeFormat是科目代码的代码结构，其定义的规则一定要和数据表Code..DB中的字段aCode的值相符。所以在实际应用中，让用户新增科目代码时，必须严格检查其规范性，只有完全符合事先定义的代码结构，才能添加入库。
---- 函数GetLevel是求某一科目代码的级数，例如，有一科目代码"10102"，在代码结构是"322222"的情况下，调用函数GetLevel('322222','10102')将返回整数2 。

---- 当然，本文的核心是LoadCode函数，该函数用了一个循环来遍历数据表Code.DB的所有记录，将字段aCode和aName的内容按层次显示出来。而在该函数中定义的二维数组MyNode[0..6]，则显得优为重要，在这里，它作用类似于递归中的栈。因为在TTreeView添加子节点的方法AddChild(Node: TTreeNode; const S: string)中，要为其指定一父节点作为参数，而父节点的代码级数一定是要添加节点的代码级数减1，所以只要用一数组来动态保存和指定父节点就成功了。

三．运行结果
---- 好了，现在把Code.DB复制到和可执行文件相同的目录下，按下F9键编译运行，本人运行的效果如图（一）。只要在以上的基础上加以完善，如增加维护功能，就可搬到实际应用中了。当然，本算法不单能用在科目代码上，其他类似的树型结构都能奏效。本人就已将此算法应用于[科目代码]、[物料清单（BOM）]、[库房管理]和[物料主文件]等多个模块中，取得令人满意的效果。
---- 以上程序在中文Windows 9x、Delphi 4 C/S环境下编译通过。