怎样把这段代码写成通用呢?解决思路

怎样把这段代码写成通用呢?
for i := 0 to List.Count-1 do
begin
MapList:=TStringList(List.Objects[i]) ;
tCode:=MapList.Values[_code];
tName:=MapList.Values[_name];

//开始
if DoString(tCode)=0 then
begin
sub1:=TreeView.Items.AddChild(sub,tName);
end;

if DoString(tCode)=1 then
begin
sub2:=_TreeView.Items.AddChild(sub1,tName);
end;
if DoString(tCode)=2 then
begin
sub3:=TreeView.Items.AddChild(sub2,tName);
end;

if DoString(tCode)=3 then
begin
sub4:=TreeView.Items.AddChild(sub3,tName);
end;
//结束

end;


我现在都是一个个去写,怎样把开始->结束一段写成通用呢?
if DoString(tCode)=1
if DoString(tCode)=2
if DoString(tCode)=3
.
.
.

怎样把这段代码写成通用的?
for i := 0 to List.Count-1 do
begin
MapList:=TStringList(List.Objects[i]) ;
tCode:=MapList.Values[_code];
tName:=MapList.Values[_name];

//开始
这边要怎么写呢?
//结束

end;

[解决办法]
这样更简便一些。
Case DoString(tCode) of

1:
2:
3:

end;
[解决办法]

探讨

这样更简便一些。
Case DoString(tCode) of

1:
2:
3:

end;

[解决办法]
AddChild(级数,名字,备注);
if 树不为空
{
if 取出级数，判断级数在不在树的范围内
{
利用getFirstChild,getNextSibling；
取出增加的节点的位置 ； 
AddChild；
}
}

[解决办法]
var
n:integer;
X,Y:string;
begin

n:=DoString(tCode);
X:=sub(n+1);
Y:=subn;
X:=TreeView.Items.AddChild(Y,tName);
end;
上面的代码有问题。
sub是一个字符串，n是一个整数，得把n先转变成为字符类型，然后连接两个字符串。

查看更多 下一篇