随笔分类 -  Delphi

上一页 1 ··· 30 31 32 33 34 35 36 37 38 ··· 63 下一页

动态数组的使用
摘要://例1: var StrArr: array of String; //动态数组定义时不与维数 begin SetLength(StrArr,6); //分配6个元素位置: 0-5 StrArr[0] := '万一'; //动态数组的下界是 0 ShowMessage(StrArr[0]); // 阅读全文

posted @ 2019-08-22 12:01 癫狂编程 阅读(807) 评论(0) 推荐(0) 编辑

Delphi分割字符串函数Split源码
摘要:function TStringHelper.Split(const Separator: array of string; Count: Integer; Options: TStringSplitOptions): TArray; var P: Integer; Total: Integer; Index: Integer; S, ToSplit: string; beg... 阅读全文

posted @ 2019-08-22 11:19 癫狂编程 阅读(470) 评论(0) 推荐(0) 编辑

Delphi: TMemo垂直滚动条自动显示
摘要:type TMemo = class(StdCtrls.TMemo) protected procedure Change; override; end; { TMemo } procedure TMemo.Change; var lc, lh: Integer; cvs: TControlCanv 阅读全文

posted @ 2019-08-21 16:25 癫狂编程 阅读(413) 评论(0) 推荐(0) 编辑

Treeview控件如何获得子节点的所有父节点的名称
摘要:Delphi或c++ 的treeview控件,比如一个节点上面有个父节点,这个父节点上面还有一个父节点,如何获得这两个父节点的名字呢?请给出实现代码 先定义一个nodevarnode:TTreeNode;然后你获取你所选中的节点node:=TreeView.Selected;它的父节点的名称就是no 阅读全文

posted @ 2019-08-21 09:22 癫狂编程 阅读(1352) 评论(0) 推荐(0) 编辑

浅谈Delphi高效使用TreeView
摘要:本来我一直都是使用递归算法, 效率很低 下边这段代码是我原来写的 procedure TForm1.GetDepartmentMsg;var Test, Test2 : TTreeNode; procedure NodeAdd(Test : TTreeNode; DepartmentId : str 阅读全文

posted @ 2019-08-20 21:12 癫狂编程 阅读(720) 评论(0) 推荐(0) 编辑

Delphi下Treeview控件基于节点编号的访问
摘要:有时我们需要保存和重建treeview控件,本文提供一种方法,通过以树结构节点的编号访问树结构,该控件主要提供的方法如下: function GetGlobeNumCode(inNode:TTreeNode):String; 功能:返回当前节点的编号,编号规则见源码内说明。 function Loc 阅读全文

posted @ 2019-08-20 20:34 癫狂编程 阅读(184) 评论(0) 推荐(0) 编辑

delphi中TTreeView的使用方法
摘要:【学习万一老师博客摘要】 TTreeView 与两个重要的类相关:TTreeNodes、TTreeNode 。 TTreeNodes即是TTreeView 的Items属性,TTreeNodes是TTreeNode的合集,TTreeNode代表的是TTreeView的节点,不按主从关系,节点依次存储 阅读全文

posted @ 2019-08-20 20:17 癫狂编程 阅读(1230) 评论(0) 推荐(0) 编辑

学习 TTreeView [2] - Items.Item[i]、Items[i]、.Text、SetFocus(设置焦点)、Select(选择)
摘要:本例效果图: 源码: 阅读全文

posted @ 2019-08-20 12:24 癫狂编程 阅读(644) 评论(0) 推荐(0) 编辑

delphi两个取字串长度的函数strlen,length
摘要:━━━━━━━━━━━━━━━━━━━━━━━━━━【strlen】PChar 串专用函数:串长度procedure TForm1.BitBtn1Click(Sender: TObject); var s: Widestring; begin s := '桂枝香在故国晚秋'; ShowMessage 阅读全文

posted @ 2019-08-19 16:38 癫狂编程 阅读(1709) 评论(0) 推荐(0) 编辑

Delphi下Treeview控件基于节点编号的访问
摘要:delphi treeview 分割号 层次 阅读全文

posted @ 2019-08-19 15:27 癫狂编程 阅读(179) 评论(0) 推荐(0) 编辑

测试 System.SysUtils.TStringHelper
摘要:大小写转换: 清除两边空格或指定字符: 字符串对比: 搜索字符串: 是否包含: 添加或解除引号: 适宽处理: 插入与删除: 截取: 替换: 分割: 连接: 类型转换: 定界符: 空字符串: String 与 Char: 其他: 阅读全文

posted @ 2019-08-19 14:37 癫狂编程 阅读(191) 评论(0) 推荐(0) 编辑

雨田家园 delphi 拆分字符串
摘要:最近在使用Delphi开发一种应用系统的集成开发环境。其中需要实现一个字符串拆分功能,方法基本原型应该是:procedure SplitString(src: string ; ch: Char; var stringList: TStringList);目的是使用字符ch拆分src字符串,把拆分的 阅读全文

posted @ 2019-08-19 14:13 癫狂编程 阅读(237) 评论(0) 推荐(0) 编辑

delphi string.split 按照任意字符串分割语句
摘要:var I: Integer; S: string; A: TArray<string>;begin S := 'AAA分割bbb分割ccc'; A := S.Split(['分割']); for I := 0 to High(A) do ShowMessage(A[I]);end; 输出结果为: 阅读全文

posted @ 2019-08-18 22:48 癫狂编程 阅读(373) 评论(0) 推荐(0) 编辑

学习 TTreeView [16] - 给 TTreeView 添加复选框 (回复 "丁永其" 的问题)
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/05/15/1114450.html#1199402 本例效果图: 阅读全文

posted @ 2019-08-18 22:47 癫狂编程 阅读(256) 评论(0) 推荐(0) 编辑

学习 TTreeView [15] - 连接数据库 (作为给 "丁永其" 和 "DELPHI万岁" 两位朋友的回复)
摘要:本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBClient, St 阅读全文

posted @ 2019-08-18 22:45 癫狂编程 阅读(229) 评论(0) 推荐(0) 编辑

delphi TClientDatset资料
摘要:第十一章 TClientDataSet 与TTable、TQuery一样,TClientDataSet也是从TDataSet继承下来的,它通常用于多层体系结构的客户端。TClientDataSet最大的特点是它不依赖于BDE(Borland Database Engine),但它需要一个动态链接库的 阅读全文

posted @ 2019-08-18 21:29 癫狂编程 阅读(161) 评论(0) 推荐(0) 编辑

delphi7 clientdataset 详解
摘要:delphi Midas SQLServer的自增字段的处理1.新增时,表中有自增字段,但是不希望用Refresh,直接ApplyUpdates直接看见自增字段的值在DataSetProvider.AfterUpdateRecord写如下代码 2.新增时,从表的关联字段与主表的自增字段同步更新 De 阅读全文

posted @ 2019-08-18 21:26 癫狂编程 阅读(1075) 评论(0) 推荐(0) 编辑

为TMenuItem增加指针Data属性
摘要:Delphi的有些组件中都包含.Data属性,比如TTreeNode,.Data属性可以认为是一个指针,可以指向任何类或者结构,方便后续操作。 但是TMenuItem没有.Data属性,下面介绍最简单的方法为TMenuItem增加.Data属性。 在需要使用的.pas文件前面写上如下代码 type 阅读全文

posted @ 2019-08-18 17:16 癫狂编程 阅读(185) 评论(0) 推荐(0) 编辑

Delphi repeat Until 运用
摘要:很少用到 repeat until,但有时候,她真的很实用 阅读全文

posted @ 2019-08-18 15:18 癫狂编程 阅读(987) 评论(0) 推荐(0) 编辑

clientdataset的使用
摘要:clientdataset的使用(一) Delphi做为一个快速应用开发工具,深受程序员的喜爱。其强大的组件功能,让程序员能够轻松、高效地完成常见的界面开发、数据库应用等功能。然而,帮助的相对缺乏,使得许多组件的功能并不为人们正确地使用,究其原因,仍然是认识上的问题。对于MIDAS开发中的核心部件, 阅读全文

posted @ 2019-08-18 11:14 癫狂编程 阅读(766) 评论(0) 推荐(0) 编辑

上一页 1 ··· 30 31 32 33 34 35 36 37 38 ··· 63 下一页

导航

好的代码像粥一样,都是用时间熬出来的