Delphi中正则表达式之TPerlRegEx类的属性与方法（7） Split函数

2017年02月06日 58 阅读

Delphi中正则表达式之TPerlRegEx类的属性与方法（7） Split函数2012-12-22 博客园 万一//字符串分割: Splitvar reg: TPerlRegEx; List: TStrings;begin List := TStringList.Create; reg := TPerlRegEx.Create（nil）; reg.Subject := "aaa,bbb,ccc,ddd"; reg.RegEx := ","; {这里可...

Delphi ListView快速操作通用实现之设计篇

2017年02月06日 55 阅读

Delphi ListView快速操作通用实现之设计篇2013-12-12 51cto 成晓旭众所周知，Delphi ListView类直接进行Add、Update、Delete操作的速度是比较慢的，尤其是当数据量较 大时，比如数据量达到5000、10000、50000时，速度真是可以说是“慢得惊人”。其实快速操作的方法非常简 单，就当大家都知道了。在本人的工作中，很多项目都用到ListView，并且对速度的响应要求比较高，于是发 ...

Delphi ListView快速操作通用实现之实现篇

2017年02月06日 57 阅读

Delphi ListView快速操作通用实现之实现篇2013-12-12 51cto 成晓旭众所周知，Delphi ListView类直接进行Add、Update、Delete操作的速度是比较慢的，尤其是当数据量较 大时，比如数据量达到5000、10000、50000时，速度真是可以说是“慢得惊人”。其实快速操作的方法非常简 单，就当大家都知道了。在本人的工作中，很多项目都用到ListView，并且对速度的响应要求比较高，于是发 ...

Delphi中使用链式代码

2017年02月06日 58 阅读

Delphi中使用链式代码2013-12-12 cnblogs 万一有了一系列的 Helper, Delphi 也可以使用链式代码了.//譬如要把 3.1415926 中的 141 提取为一个整数:varnum: Integer;beginnum := Pi.ToString（）.Split（["."]）[1].Substring（0,3）.ToInteger（）; // 输入 . 后, 记得使用 Ctrl+Space 提示代码ShowMessage（nu...

delphi的记录型文件类型

2017年02月06日 53 阅读

delphi的记录型文件类型2013-12-12 lilin9105 一.记录型文件类型文件：1）可以粗略地理解为数据库，如本地qq程序的中把的一些账号信息集合（账号 ，密码，上次登录时间等 等组成的集合）记录在.dat文件中。2）记录型文件类型文件VS数据库相同点：都可以用来记录数据区别：记录型文件类型文件类似记事本记录数据，导致对数据的填删改 查没有数据库那么方便。3）delphi记录型文件的定义第一步：定义一个记录集 type MyFile= R...

delphi用数据库记录账号的登陆功能

2017年02月06日 57 阅读

delphi用数据库记录账号的登陆功能2013-12-12 lilin9105admin用delphi做了一个霸气的登陆界面用数据库记录账号的登陆功能 的实现第一步配置con1控件第二步配置adoquery1属性...

delphi用数据库显示的TDBGrid配置

2017年02月06日 51 阅读

delphi用数据库显示的TDBGrid配置2013-12-12 lilin9105 一、先在form 中添加TDGrid二、添加以下3个数据库控件到form中TADOConnection主要作用是 连接数据库（或说连接数据源）TADOQuery组件连接数据源，并在SQL属性中输入SQL语句。（初始数据源 Datasource）TDataSource建立与TADODataSet（或TAdoQuery，因为TAdoQuery有子类Datasource）桥 接...

delphi中不用数据源使用access数据库

2017年02月06日 63 阅读

delphi中不用数据源使用access数据库2013-12-12 lilin9105 在我做好学生管理系统时，发现要使用本软件必须配置数据库的数据源。于是我就想弄个脱离数据源的版 本。构造思想：在con1的connectionstring有 链接数据库文件作为数据源的做法，那么我们可以用数据库文件配置数据源。于是百度了一下Data Source = 数据源路径。而student数据源在注册表中注册过，student数据源名称等价于路径。思路：第一步：马上...

delphi做学生管理系统总结

2017年02月06日 59 阅读

delphi做学生管理系统总结2013-12-12 lilin9105 在用刚刚学的delphi来做学生管理系统会遇到很多问题，这写问题或许是共性的，希望对大家有帮助工程文件界面一、登录界面二、主功能界面用户管 理...

Delphi的资源管理器套件

2017年02月06日 60 阅读

Delphi的资源管理器套件2013-12-12 博客园 万一需要个类似资源管理器的东西, 首先试了下 TDriveComboBox、TDirectoryListBox、TFileListBox, 嘿！ Win31 时代的东西, 不是一般地丑. 试了下 Vcl.Shell.ShellCtrls 下的 TShellComboBox、TShellTreeView、TShellListView, 非常满意！ 并且 TShellComboBox 也可以免掉了.un...

System.SysUtils.TMarshaller 与 System.TMarshal

2017年02月06日 56 阅读

System.SysUtils.TMarshaller 与 System.TMarshal2013-12-12 cnblogs 万一TMarshaller（结构） 基于 TMarshal（是有一大堆的 class 方法组成的类） 实现. TMarshaller 可以对缓存区进行自动（自动释放）安全地管理, TMarshal 也有前者没有的重要方法, 譬如: TMarshal.Copy（） 方法. 有了它们, 以后关于内存缓冲区, 字符串转码等操作就更方便了...

System.TPtrWrapper：指针包装器

2017年02月06日 59 阅读

System.TPtrWrapper：指针包装器2013-12-12不知什么时候 System 单元有了 TPtrWrapper 结构体, 它提供了非常小的一点功能: 指针（Pointer）与指针地址（NativeInt）的转换. 很显然, 以前常用的 Integer（P） 或 Ptr（Number） 已经不适用与 64 位了, 这时使用 TPtrWrapper 应该是更方便,更保险的选择. 发现在 Delphi 新的源码中, 几乎就把 TPtrWrapp...

XP以后Windows版本Delphi操作注册表的办法

2017年02月06日 65 阅读

XP以后Windows版本Delphi操作注册表的办法2013-12-12 cnblogs 万一手头的程序需要修改注册表, 以让当前程序成为某格式的默认打开程序并关联图标; Vista 之后需要管理 员权限才能操作注册表, 很麻烦, 所以有了下面的尝试.unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Class...

Delphi多线程编程的三个常用方法

2017年02月06日 58 阅读

Delphi多线程编程的三个常用方法2013-12-12有一段多线程的程序需要完善, 捋了一遍 XE4 中关于多线程的源码, 发现有这三个类方法就足够我用了, 暂时结束学习.TThread.CreateAnonymousThread（）; //普通TThread.Queue（）; //队列TThread.Synchronize（）; //VCL 同步...

Delphi中字符串的另类用法

2017年02月06日 55 阅读

Delphi中字符串的另类用法2013-12-12procedure TForm1.FormCreate（Sender: TObject）;varstr: string;n1, n2, n3: Integer;beginstr := "ABC";n1 := Low（string）; // 1n2 := Low（str）;// 1n3 := High（str）; // 3// ShowMessageFmt（"%d, %d, %d", [n1, n2, n3]...

Delphi中获取用户程序数据目录的GetHomePath函数

2017年02月06日 58 阅读

Delphi中获取用户程序数据目录的GetHomePath函数2013-12-12uses System.IOUtils; procedure TForm1.FormCreate（Sender: TObject）;varS: string;begin{ 三种方法结果一致: C:UserswyAppDataRoaming }S := GetHomePath; // SysUtils, 能跨平台且简单, 在 Windows 下使用 SHGetFolderPat...

Delphi获取格林威治时间并转换到北京时间

2017年02月06日 71 阅读

Delphi获取格林威治时间并转换到北京时间2013-12-12 cnblogs 万一uses Winapi.msxml, System.DateUtils; //实时获取网络时间的函数, 得到的是格林威治时间; 默认从 sohu 服务器获取, 因为它最快, 平均只需 15 毫秒function GetNetTime（aUrl: WideString = "http://www.sohu.com"）: string;beginwith CoXMLHTTP....

Delphi中继承方式使用控件

2017年02月06日 59 阅读

Delphi中继承方式使用控件2013-12-12 博客园 万一以前写代码, 总是把主单元弄得满满当当; 现在更喜欢把控件比较独立的功能写成一个单元, 改写属性、 重载方法...哪怕只有一点点和默认不同, 也喜欢独立出来. 刚刚用到 TListBox, 需要能拖动元素、双击删除.unit ListBox2; interfaceusesSystem.Classes, Vcl.Controls, Vcl.StdCtrls, System.Types; type...

Delphi实现字符串的二维表: TSta

2017年02月06日 60 阅读

Delphi实现字符串的二维表: TSta2013-12-12 cnblogs 万一STA 单元 （用到 System.SysUtils.TStringHelper）:unit STA; interfaceuses System.SysUtils, System.Classes; typeTSta = recordFSeparator: Char;FArr: TArray<TArray<string>>;constructor Cr...

Delphi中数组赋值

2017年02月06日 55 阅读

Delphi中数组赋值2013-12-12曾经想过, Delphi 要能这样给数组赋值就好了: arr := [...]; VarArrayOf 可不是新东西, 不过之前还没习惯用它.varbs: TBytes;// bs: TArray<Byte>begin// SetLength（bs, 3）;bs := VarArrayOf（[11, 22, 33]）;ShowMessage（IntToStr（bs[2]））; //33end; vars...