如何把treeview中的英文（节点名称）替换成汉字。

var Node, Parent: TTreeNode; begin Parent := TreeView1.Items.AddChild(nil, '文件夹'); Node := TreeView1.Items.AddChild(Parent, 'inbox'); Node.Text := StringReplace(Node.Text, 'inbox', '收件箱', [rfIgnoreCase]); Node := TreeView1.Items.AddChild(Parent, 'Sent'); Node.Text := StringReplace(Node.Text, 'Sent', '发件箱', [rfIgnoreCase]); end;

加为好友

发送私信

在线聊天

twoball
雪悟（帅的不能再输啦）
等级:

发表于：2008-05-06 17:39:554楼得分:0

加上后不起作用啊，如下：
var prop_defaultStyle = null;
var prop_hoverStyle = null;
var prop_selectedStyle = null;
var prop_childType = null;
var prop_imageUrl = null;
var prop_expandedImageUrl = null;
var prop_selectedImageUrl = null;
var prop_target = null;
var prop_treeNodeSrc = null;
var prop_treeNodeXsltSrc = null;
var prop_selectExpands = null;
var prop_expandLevel = -1;
var prop_autoSelect = false;
var prop_treeNodeTypeSrc = null;
var prop_showLines = true;
var prop_showPlus = true;
var prop_showToolTip = true;
var prop_indent = 19;
var prop_selectedNodeIndex = null;
var prop_systemImagesPath = null;
var
Node, Parent: TTreeNode;
begin
Parent := TreeView1.Items.AddChild(nil, '文件夹');
Node := TreeView1.Items.AddChild(Parent, 'inbox');
Node.Text := StringReplace(Node.Text, 'inbox', '收件箱', [rfIgnoreCase]);

Node := TreeView1.Items.AddChild(Parent, 'Sent');
Node.Text := StringReplace(Node.Text, 'Sent', '发件箱', [rfIgnoreCase]);
end;

引用 3 楼 blazingfire 的回复:
简单给个例子,具体的实现你自己来：

Delphi(Pascal) code
var
Node, Parent: TTreeNode;
begin
Parent := TreeView1.Items.AddChild(nil, '文件夹');
Node := TreeView1.Items.AddChild(Parent, 'inbox');
Node.Text := StringReplace(Node.Text, 'inbox', '收件箱', [rfIgnoreCase]);

Node := TreeView1.Items.AddChild(Parent, 'Sent');
Node.Text := StringReplace(Node.Text, 'Sent', '发件箱', […

修改删除举报引用回复