姚明裸體跪求一段TreeView的代碼-CSDN论坛

姚明裸體跪求一段TreeView的代碼

Delphi > VCL组件开发及应用

收藏回复

[问题点数：50分，结帖人ZXYSOSO]

⋅c#代码转为delphi代码，请高手帮忙 ⋅转:这是delphi写的,老板要求转化成JAVA代码,可怜我,对JAVA一点都不懂,请各位高人,出手相助 ⋅这是delphi写的,老板要求转化成JAVA代码,可怜我,对JAVA一点都不懂,请各位高人,出手相助. 更多帖子 关注私信空间博客 zxysoso 等级 本版专家分：29 结帖率 98.68%: 這是一棵樹Tree
Root
  |--aaa
  |--bbb--bbb1
--bbb2
--bbb3
  |--ccc
  |--ddd--ddd1
--ddd2
  |--eee--eee1
--eee3
--eee4
--eee5

這是一個ListBox1
| aaa |
| bbb |
| ccc |
| ddd |
| eee |

我的要求是這樣的:
當我移動ListBox1的Item時,Tree中節點(aaa,bbb,ccc,ddd,eee...)對應的要選中,即是反白的方式

如我選中ListBox1中的ddd,那Tree中的節點ddd就被選中為反白;如我選中ListBox1中的aaa,那Tree中的節點aa就被選中為反白;

2004-08-30 15:23:28

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅求简单C程序,速给分！！ ⋅求简单C程序,速给分 ⋅PPT小问题 更多帖子 关注私信空间博客 luke5678 等级 本版专家分：7043: 穿上衣服站着说好了

2004-08-30 15:25:35

点赞只看TA 引用举报 #1得分 0

⋅投票贴 ⋅捐款...不知道CSDN捐款了么？ ⋅日，跟着九五倒大霉了，白花花的银子就这样去了 更多帖子 关注私信空间博客 ihihonline 等级 本版专家分：24133: 参考

{----------------TreeView Option ---------------------------}
function TreeAddItem(Sender: TTreeView; ItemList: TStrings;
  Bookmark: TBookmark; Resort: Boolean): TTreeNode;
var
  ThisNode, Node: TTreeNode;
  I: Integer;
begin
  Node := nil;   //nil = level 0 has no parent node
                //this is checked by TreeFindItem
  for I := 0 to Itemlist.count -1 do
  begin
    ThisNode := TreeFindItem(Sender, node, Itemlist[i]);
    if ThisNode <> nil then Node := ThisNode else
    begin
      if I < Itemlist.count -1 then
      begin
        if I = 0 then
          Node := Sender.items.Add(Node, Itemlist[i]) else
          Node := Sender.items.AddChild(Node, Itemlist[i]);
      end else
      begin
        if I = 0 then
          Node := Sender.items.AddObject(Node, Itemlist[i], Bookmark) else
          Node := Sender.items.AddChildObject(Node, Itemlist[i], Bookmark);
      end;
      Node.stateIndex := Node.level + 1;
      if Resort and (Node.parent <> nil) then
        Node.parent.alphasort;
    end;
  end;
  Result := Node;
end;

function TreeFindItem(Sender: TTreeView; NodeItem: TTreeNode;
  Name: String): TTreeNode;
begin
  if NodeItem = nil then
    NodeItem := Sender.items.getfirstnode else
    NodeItem := NodeItem.getfirstchild;
    //NodeItem is now the first item of the desired level
    //if this level has no items, NodeItem is nil

  if (NodeItem <> nil) and (NodeItem.text <> Name) then
  Repeat
    NodeItem := NodeItem.getnextsibling;
  Until (NodeItem = nil) or (NodeItem.text = Name);
  Result := NodeItem;
end;

function TreeGetItem(Sender: TTreeView; ItemList: TStrings): TTreeNode;
begin
  Result := TreeAddItem(Sender, Itemlist, nil, false);
end;

procedure TreeDeleteItem(Sender: TTreeView; ItemList: TStrings; Level: Integer);
var
  Node, Parent: TTreeNode;
begin
  Node := TreeGetItem(Sender, ItemList);
  while Node.level >= Level do
  begin
    Parent := Node.parent;
    Node.delete;
    if (Parent = nil) or (Parent.hasChildren) then break;
    Node := Parent;
  end;
end;

2004-08-30 15:27:01

点赞只看TA 引用举报 #2得分 30

⋅求简单C程序,速给分！！ ⋅求简单C程序,速给分 ⋅PPT小问题 更多帖子 关注私信空间博客 luke5678 等级 本版专家分：7043: procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
str: string;
begin
  TreeView1.HideSelection := False;
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    if ListBox1.Selected[i] then
      str := ListBox1.Items.Strings[i];
  end;
  for i := 0 to TreeView1.Items.Count - 1 do
  begin
    if TreeView1.Items.Item[i].Text = str then
      TreeView1.Items.Item[i].Selected := True;
  end;
end;

2004-08-30 15:35:35

点赞只看TA 引用举报 #3得分 10

⋅▼▼▼▼▼ 双星级在线挑战，请大家点击助威 !! ▲▲▲▲▲ ⋅★ 我是双星，我怕谁？ ★ ★★★ ⋅★ xiaoya3l7(小雅) ，昨晚你向我保证什么了？请你马上回答 ★ 更多帖子 关注私信空间博客 myling 等级 本版专家分：16486: 姚明惹谁了？

2004-08-30 15:36:51

点赞只看TA 引用举报 #4得分 0

⋅求简单C程序,速给分！！ ⋅求简单C程序,速给分 ⋅PPT小问题 更多帖子 关注私信空间博客 luke5678 等级 本版专家分：7043: 哈哈...

2004-08-30 15:38:38

点赞只看TA 引用举报 #5得分 0

⋅c#代码转为delphi代码，请高手帮忙 ⋅转:这是delphi写的,老板要求转化成JAVA代码,可怜我,对JAVA一点都不懂,请各位高人,出手相助 ⋅这是delphi写的,老板要求转化成JAVA代码,可怜我,对JAVA一点都不懂,请各位高人,出手相助. 更多帖子 关注私信空间博客 zxysoso 等级 本版专家分：29: 因我的Tree只是會找第1層，即是Tree中節點(aaa,bbb,ccc,ddd,eee...)，所以我不希望循環所有的節點，

所以，你們的代碼可否改一下

2004-08-30 15:44:39

点赞只看TA 引用举报 #6得分 0

⋅使用BLOB类型存储图片的问题，我的查询总报错（数据类型不匹配）。 ⋅关于oracle中的左连接，我用的是8I里的（＋） ⋅请问如何在dos下用c实现定时的文件拷贝（任何文件均可，后者是目录的拷贝）。急用！！解决问题者可加分！！ 更多帖子 关注私信空间博客 lfslfs5367 等级 本版专家分：813: 那就加个判断！！！

2004-08-30 15:50:01

点赞只看TA 引用举报 #7得分 0

⋅在深圳找工作中…… ⋅求助：Flash初始化问题 ⋅急求：Scrollpane中怎么置入duplicateMovieClip出来的Movie Clip对象？ 更多帖子 关注私信空间博客 楚人无衣 等级 本版专家分：18716 勋章 黄花 2004年5月 Delphi大版内专家分月排行榜第二 2004年4月 Delphi大版内专家分月排行榜第二: 帮你改一下：
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
str: string;
begin
  TreeView1.HideSelection := False;
  for i := 0 to ListBox1.Items.Count - 1 do
    if ListBox1.Selected[i] then str := ListBox1.Items.Strings[i];
  for i := 0 to TreeView1.Items.Count - 1 do
    with TreeView1.Items.Item[i] do
      if (Level = 0) and (Text = str) then.Selected := True;
end;

2004-08-30 15:52:16

点赞只看TA 引用举报 #8得分 10

⋅软件发布：LYFTP探险者 ⋅软件发布：LY ⋅软件发布：LY 更多帖子 关注私信空间博客 ly_liuyang 等级 本版专家分：68390 勋章 黄花 2004年9月 Delphi大版内专家分月排行榜第二 蓝花 2005年4月 Delphi大版内专家分月排行榜第三: 都说完了，
没话说了

2004-08-30 16:05:50

点赞只看TA 引用举报 #9得分 0

收起

收藏回复

zxysoso

等级：

关注私信 TA的帖子

用PLSQL操作数据库时用命令查看当前登陆用户的所有表: 一、显示表和表空间 1.显示当前用户所有表(其中SCOTT,必须大写) ...2.显示当前用户的所有表（这个会显示用户表以及表空间名） select * from user_tables； 3.显示当前数据库的所有表 select * from tab;

oracle 查看用户所在的表空间: 查看当前用户的缺省表空间　SQL>select username,default_tablespace from user_users;　查看当前用户的角色　SQL>select * from user_role_privs;　查看当前用户的系统权限和表级权限　SQL>select * from user_sys_...

Oracle查看用户所在的表空间: oracle 查看表空间有哪些表 select * from dba_tables where tablespace_name='表空间名',注意表空间名大小写敏感。 select table_name,...查看当前用户的缺省表空间 　SQL>select username,default_t

利用PLSQL实现表空间的迁移: 在9i的时候，表空间的迁移使用EXP/IMP来实现。在10g中，除了使用EXP/IMP之外，还可以使用数据泵EXPDP/IMPDP，以及RMAN的命令TRANSPORT TABLESPACE命令，除此之外，还可以通过PL/SQL包DBMS_STREAMS_TABLESPACE_ADM来...

Oracle在PLSQL Developer上创建表空间和用户脚本: Oracle在PLSQL Developer上创建表空间和用户脚本 oracle数据库还原,如何将dmp文件还原到oralce库最近用到从oracle的dmp文件中还原数据由于没有这方面的资料,在...

利用PLSQL实现表空间的迁移（一）: 在9i的时候，表空间的迁移使用EXP/IMP来实现。在10g中，除了使用EXP/IMP之外，还可以使用数据泵EXPDP/IMPDP，以及RMAN的命令TRANSPORT TABLESPACE命令，除此之外，还可以通过PL/SQL...

(详)通过plsql对dmp文件进行导入和导出: 本文将通过plsql客户端工具，演示如何对Oracle数据库中的表以dmp文件的格式进行导出和导入。 dmp的导出步骤如下： 1、打开plsql并登陆，点击工具 ——&gt; 导出表 2、在打开的窗口选中要导出的表， ...

oracle查看用户所在表空间: 转自：... 1、查看当前用户的缺省表空间 select username,default_tablespace，temporary_tablespace from user_users; 2、查看当前用户的角色 select * from user_role_...

Oracle以及SDE维护常用命令-查看表空间等: 之前现场反馈一个数据更新的问题，查看感觉是因为表空间满了导致的（错误在之前的博客随笔中写过），因此远程对服务器进行查看。... 因此到网上查了一下查看Oracle表空间使用情况的查询语句，通过PLSQL进行查...

oracle查看用户所在的表空间: oracle查看用户所在的表空间 （转）查看当前用户的缺省表空间　SQL>select username,default_tablespace from user_users;　查看当前用户的角色　SQL>select * from user_role_privs;　查看当前用户的系统...

oracle 查看用户所在的表空间等常用知识: 2011-03-17 16:35 58415人阅读评论(9) 收藏举报 ...查看当前用户的缺省表空间 　SQL>select username,default_tablespace from user_users; 　查看当前用户的角色　SQL>select * from user_rol

神经网络对汽油辛烷值进行预测: 网络上的神经网络对汽油辛烷值进行预测，个人进行了总结与修改并在Matlab上测试，通过训练spectra_data数据，然后测试，生成实际值与预测值对比，精确度较高，代码简单，适合初学者学习。

MFC上位机与STM32下位机通讯精讲: 本课程主要介绍C++类库MFC上位机与STM32单片机的RS232、RS422、RS485、USB、LWIP以太网、CAN等接口进行稳定通信。课程主要从MFC和STM32基础开始，以编写上位机以及下位机为主，非常注重实践。本课程主要目标是让大家学会MFC上位机的编程、STM32下位机编程。单单的会上位机或者下位机有时候体会不到通讯的乐趣，如果你单单会下位机，你学了本课程，你可以把你的数据以任何方式在windows上呈现出来，如果你只会上位机，你学了本课程你可以通过windows的串口、以太网、USB控制任何硬件设备。本课程的目标就是补偿大家的短处，让大家成为综合性人才，同时让大家体会到通讯中的更多乐趣。

c语言项目开发实例: 十个c语言案例（1）贪吃蛇（2）五子棋游戏（3）电话薄管理系统（4）计算器（5）万年历（6）电子表（7）客户端和服务器通信（8）潜艇大战游戏（9）鼠标器程序（10）手机通讯录系统

navicat简体中文版绿色版（64位）: 解压后安装navicat，打开navicat执行PatchNavicat即破解成功。可以正常使用啦。

C语言大型软件设计的面向对象: C语言代码一旦达到一定规模，就特别强调良好的架构设计，以保证代码的可读性好、代码简洁以及可复用。此时，软件设计师势必要用C语言来做面向对象的设计。不能克服面向对象这一关，也是很多人无法读懂Linux内核、驱动等架构比较庞大的软件的主要技术壁垒之一，因为这些软件里面充满了对象式的设计。本课程以案例来详细讲解，用C语言如何设计面向对象的程序。本课程以案例来详细讲解，用C语言教大家如何设计面向对象的程序。

数据结构基础系列(2)：线性表: 数据结构课程是计算机类专业的专业基础课程，在IT人才培养中，起着重要的作用。课程按照大学计算机类专业课程大纲的要求，安排教学内容，满足需要系统学习数据结构的人。系列课程包含11个部分，本课为第2部分，线性表的逻辑结构，线性表的顺序表和链表两种存储结构，以及在各种存储结构中基本运算的实现，还通过相关的应用案例介绍了相关知识的应用方法。系列课程的目标是帮助学习者系统掌握数据结构课程的相关知识，具备利用这些知识分析问题、解决问题的能力。本课是系列课程中的第2部分，具体目标包括：掌握线性表的特征以及逻辑结构定义；掌握顺序表存储结构，及各种基本运算的实现；掌握单链表存储结构，及各种基本运算的实现；了解双链表、循环链表、有序表的存储、应用；学会用线性表解决实际问题。

t-sne降维可视化实例matlab: 这是用t-sne算法对手写数字实例进行降维，可视化的实例，完美实现算法对手写数字的聚类，实现了分类效果。已经过检验可以使用，可放心下载运行。

HarmonyOS.rar 华为鸿蒙操作系统源码国产操作系统源码华为源码: `HarmonyOS` is the first full-scene distributed OS based on micro-kernel. It is an operating system independently developed by Huawei. On August 9, 2019, `HarmonyOS` System was officially released at the Huawei Developers Conference (). Huawei will take the lead in deploying intelligent terminals such as smart screens, vehicle terminals and wearable terminals. In the future, more and more intelligent devices will use open source `HarmonyOS` .

数值分析原理_吴勃英: 数值分析原理科学出版社吴勃英主编课本扫描件,lueluelue

计算机网络技术教程: 本课程适用于计算机和通信相关专业的学生、准备考华为和思科认证但是基础不扎实的、想学黑客和网络安全的、考研的同学、没有系统学习过网络的编程人员和相关从业人员，课程从理论讲起，以理论为主，在后边章节补充了考研、考试的知识，也补充了生活中的网络应用。让大家理解网络的概念，让计算机和通信相关专业的学生、准备考华为和思科认证但是基础不扎实的、想学黑客和网络安全的、考研的同学、没有系统学习过网络的编程人员和相关从业人员，在为以后的学习打下良好的基础，同时课程后边补充了考研、考试的知识，也补充了生活中的网络应用。

t-sne算法matlab原函数: matlab的t-sne算法，完美实现t-sne算法，已经过检验可以使用，可放心下载运行。

APP内置IM 系统——从入门到千万级在线: IM （即时通讯）系统是一种大型实时系统，其对技术方面的要求非常高。在APP社交化的今天，很多APP都希望为自己的应用增加IM系统，但却不得其法。本课程抽丝剥茧，搭建一套简IM 系统，先让开发者了解如何实现这类系统，然后会不断的对系统进行扩展，并详述要支撑千万级别的用户，系统架构要经过哪些方面的演变，在每个阶段需要具体考量哪些因素；其中涉及到大型网络开发、协议的制定解析、数据库的优化、负载均衡、监控、测试等方面的知识。相信通过此课程，开发者对IM 系统将有一个全面的认识。 a:0:{}

图像能见度: 根据图像特征计算图像能见度

大学英语六级历年真题及详解（2017.6～2019.6）.pdf: 大学英语六级历年真题及详解（2017.6～2019.6）

多元非线性回归分析源代码: 数学工具，用于多元非线性回归分析，包含源代码，适用于源代码的学习和数学工具的使用

图书管理系统（Java + Mysql）我的第一个完全自己做的实训项目: 图书管理系统 Java + MySQL 完整实训代码，MVC三层架构组织，包含所有用到的图片资源以及数据库文件，大三上学期实训，注释很详细，按照阿里巴巴Java编程规范编写

随机森林Matlab代码实现: 此文件为随机森林Matlab实现代码，可用于了解随机森林的实现过程，运行结果等等。

嵌入式Linux系统移植入门: 本课程介绍嵌入式Linux系统移植的相关的，bootloader,内核分析与配置，文件系统知识。 1.Bootloader概述 2.Linux内核分析初步 3.Linux内核配置 4.Linux文件系统

主成分分析PCA降维的MATLAB程序实现代码: 在MATLAB中实现用主成分分析（PCA）的方法对矩阵的降维.其中包括具体程序实现代码，为了增加程序的可读性，对程序的主要步骤都进行了解释。

相关热词 c#如何判断多条件 c#用户配置目录 c# sort用法 c# 隔两位 c#母窗体 c# socket关闭 c#生成自定义文件 c#安全性低吗 c# 读取文件流 c#父类指针指向子类对象