两个简单小问题

Question

1。如何动态创建树节点？
2。如何颠倒字符串，其中包括一般字符和汉字类型，要保证汉字颠倒后不会变成别的字

Answer 1

TreeView1.Items.Add();
TreeView1.Items.AddChild();

Answer 2

for i:=1 to 10 do
begin
  RzTreeView1.Items.Add(nil,inttostr(i));
end;

Answer 3

问题的确简单，好应付！1.type
  PTreeNode = TTreeNode;
var
  p: PTreeNode;
begin
  New(p);
  ...
end;2.function ReverseString(const AText: WideString): WideString;
var
  I: Integer;
  P: PWideChar;
begin
  SetLength(Result, Length(AText));
  P := PWideChar(Result);
  for I := Length(AText) downto 1 do
  begin
    P^ := AText[I];
    Inc(P);
  end;
end;