procedure Tchecktree.GetCheckedListName(var astringlist:tstrings);
var
i:integer;
begin
if not assigned(fchecktree) then exit;
if not assigned(astringlist) then exit;
astringlist.Clear;
for i:=0 to checktree.Items.Count -1 do
if checktree.ItemState=cschecked then
astringlist.Add(checktree.items.text); //获得选中结点的名称列表
end;