//文件或目录转换成 TreeViewprocedure DirToTreeView(Tree: TTreeView; Directory: string; Root: TTreeNode; IncludeFiles:  Boolean);var  SearchRec         : TSearchRec;  ItemTemp          : TTreeNode;begin  with Tree.Items do  try    BeginUpdate;    if Directory

    DELPHI TreeView 文件目录树和 设置节点图标   下载地址 http://download.csdn.net/detail/teststudio/6448293     需要制作文档管理软件 这个非常有用的 1 文件夹 设置图标为  2 文件夹里没有文件的文件夹 设置图标为 没有  3 .HTML文档 设置图标为 4 有附件的 文档设置图标为    DELPHI XE 5测试通过 unit Unit1; interface uses Windows, Messages, S

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;   X, Y: Integer); var   Node: TTreeNode; begin   with TreeView1 do   begin     Node := GetNodeAt(X, Y);     ShowHint := (Node <> nil);     if ShowHint then     begin       Hint

delphi treeview checkbox 最新版Berlin还没有带checkbox的treeview?

Delphi TreeView – 自动展开树形结构 当处理完TreeView控件树形结构的数据后,需要默认自动全部展开,可以用到TreeView的Expanded属性. 1 2 3 4 5 6 7 8 9 10 var       icount : integer; begin RzTreeView1.Items.EndUpdate; //示例中用的是Raize中的RzTreeView组件 for icount := 0 to RzTreeView1.Items.Count-1 do     

Delphi TreeView – 自动给标题上加图片 当处理完TreeView控件树形结构的数据后,根据不同的树形节点Level,加上不同的图片. 图片的ImageList已经放置好,并且TreeView的Images已经连上带有图片的ImageList. 除了手动添加图片外,还可以通过代码,根据判断不同Level来批量添加图片,实现代码增加在TreeView的 GetImageIndex 事件中. 1 2 3 4 5 6 7 8 9 procedure Tfrm_main.RzTreeVie

/// <summary> /// TreeView获取目录下的所有文件 /// </summary> /// <param name="tree"></param> /// <param name="dirname"></param> /// <returns></returns> public static bool InitTreeView(TreeView tre

本文目标: 了解Delphi的字符串类型 字符编码的检测与转换 简体繁体转换 0. 导言 看完“.Net与字符编码(理论篇)”,我们明白了字符是自然语言中的最小单位,在存储和传输的过程中可以使用三种编码方法:ASCII.DBCS以及Unicode.常见的DBCS编码有GB2312.GBK和BIG5,而UTF-8.UTF-16和UTF-32则是最常用的Unicode编码类型. 1. 字符串类型 在Delphi中有两种字符串类型:AnsiString和WideString.AnsiString被称为

Delphi有三种类型的字符: AnsiChar这是标准的1字节的ANSI字符,程序员都对它比较熟悉. WideChar这是2字节的Unicode字符. Char在目前相当于AnsiChar,但在Delphi 2010 以后版本中相当于WideChar. 记住因为一个字符在长度上并不表示一个字节,所以不能在应用程序中对字符长度进行硬编码, 而应该使用Sizeof()函数.注意Sizeof()标准函数返回类型或实例的字节长度. Delphi有下列几种不同的字符串类型 String: ShortSt

活动目录Active Directory是用于Windows Server的目录服务,它存储着网络上各种对象的有关信息,并使该信息易于管理员和用户查找及使用.Active Directory使用结构化的数据存储作为目录信息的逻辑层次结构的基础. 在某些情况下我们需要通过程序来读取Active Directory中的信息,我们可以使用微软提供的ADSI(Active Directory Services Interface).ADSI是一组以COM接口形式提供的目录 服务,因此任何支持COM编程的

方法一:delphi中递归算法构建treeView 过程:通过读取数据库中table1的数据,来构建一颗树.table1有两个字段:ID,preID,即当前结点标志和父结点标志.所以整个树的表示为父母表示法.本递归算法不难写,但是要注意:程序内部的变量都应使用局部变量!比如当Query是外部变量(函数外定义或者直接通过控件拖拽得来)时就会得到错误的结果.代码如下: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants,

今天,对接第三方dll的时候出现如下问题: 接口声明如下: long BL_tradeBalance (char *MerchantNumber,char *PosId,char *OperatorNumber, int TypeCode,int PrintMode, char *ResponseBuf,char *retCode,char *retMsg) 输入参数: char mMerchantNumber[6]        //商户号(门店号) char mPosId[3]       

活动目录Active Directory是用于Windows Server的目录服务,它存储着网络上各种对象的有关信息,并使该信息易于管理员和用户查找及使用.Active Directory使用结构化的数据存储作为目录信息的逻辑层次结构的基础. 在某些情况下我们需要通过程序来读取Active Directory中的信息,我们可以使用微软提供的ADSI(Active Directory Services Interface).ADSI是一组以COM接口形式提供的目录 服务,因此任何支持COM编程的

Treeview用于显示按照树形结构进行组织的数据.         Treeview控件中一个树形图由节点(TreeNode)和连接线组成.TtreeNode是TTreeview的基本组成单元.     一个树的节点又包含文本(Text)和数据(Data).Text为String类,Data则为无定形指针(Untyped   Pointer),     可以指向一个与节点相联系的数据结构.         每一个节点下子节点形成这一节点的Items属性,当前节点有一个唯一的Index(Tree

先说赋值: //赋值方法1: 给直接量 begin   SetWindowText(Handle, '新标题'); end; //赋值方法2: 定义它要的类型 var   p: PChar; begin   p := '新标题';   SetWindowText(Handle, p); end; //赋值方法3: 转换成它要的类型 var   str: string; begin   str := '新标题';   SetWindowText(Handle, PChar(str)); end;

  TreeView修改选中的节点的颜色和背景     TCustomDrawTarget = (dtControl, dtItem, dtSubItem);   TCustomDrawStage = (cdPrePaint, cdPostPaint, cdPreErase, cdPostErase);   TCustomDrawState = set of (cdsSelected, cdsGrayed, cdsDisabled, cdsChecked,     cdsFocused, cds

//删除整个文件夹及其下的所有文件function DelDirAll(aDir: string): Boolean; var vSearch: TSearchRec; vRet: integer; vKey: string;begin if aDir[Length(aDir)] <> '\' then aDir := aDir + '\'; vKey := aDir + '*.*'; vRet := FindFirst(vKey, faanyfile, vSearch); while vRe

function get_dir_parent(dir:string;n:integer):string; //n为几级父目录varst:string;i:integer;begin st:=GetCurrentDir;     SetCurrentDir(dir);     for i:=1 to n do     begin               ChDir('..'); end;     result:=GetCurrentDir;     SetCurrentDir(st);//恢

今天再细研究了一下Treeview的用法,网上虽然总结了很多,但是还是有很多节点没有讲到了,也给使用中遇到很多问题.特地总结一下: 1.概念 Treeview用于显示按照树形结构进行组织的数据.Treeview控件中一个树形图由节点(TreeNode)和连接线组成.TtreeNode是TTreeview的基本组成单元. 一个树的节点又包含文本(Text)和数据(Data).Text为String类,Data则为无定形指针(Untyped   Pointer),可以指向一个与节点相联系的数据结构.

遍历指定目录下指定类型文件的函数// ================================================================// 遍历某个文件夹下某种文件,// 使用说明//  _GetFileList(ListBox1.Items,'c:\*.doc');// _GetFileList(MyTStringList,'c:\*.exe');// =====================================================