能我看一下TreeView的取值有什
function GetSectFromTree(Node: TTreeNode): string;
var
N: TTreeNode;
begin
if Node = nil then
result := ' '
else
if Node.HasChildren then
begin
N := Node.getFirstChild;
while N <> nil do
begin
result := Result + GetSectFromTree(N);
N := Node.GetNextChild(N);
end;
end
else
Result := (Node.Text) + '^ ';
end;


[解决办法]
Result := (N.Text) + '^ '
[解决办法]
:)
[解决办法]

function GetSectFromTree(Node: TTreeNode): string;
var
N: TTreeNode;
begin
if Node = nil then
result := ' '
else
begin
Result := (Node.Text) + '^ ';
if Node.HasChildren then
begin
N := Node.getFirstChild;
while N <> nil do
begin
result := Result + GetSectFromTree(N);
N := Node.GetNextChild(N);
end;
end;
end;