delphi
Blessed_Chuan
这个作者很懒,什么都没留下…
展开
-
Delphi截取字符串 防止中文截断
在Delphi中,用Length来取字符长度时,会将汉字当成两个字节来计算,Copy把汉字当成两个来处理,可能截取半个汉字,那我们如何知道是否取的是汉字呢?是否把一个汉字取完整了呢?其实,可以用ByteType对取出来的字符进行判断是一个单字符还是汉字的一部分!mbLeadByte: 汉字的第一个字节mbTrailByte: 汉字的第二个字节mbSingleByte: 单个的字符,不是中文字符转载 2013-12-24 11:29:43 · 8357 阅读 · 0 评论 -
DELPHI、PHP、C#通用DES编码解码单元 (DELPHI下使用的代码)
unit uDES;{*********************************************************}{* DELPHI、PHP、C#通用DES编码解码单元 *}{* blessed 2016-10-18 *}{****************************************原创 2016-10-18 12:04:25 · 2736 阅读 · 7 评论 -
"EIPAbstractError" exception with "No peer with the interface with guid [...] has been registered".
DATASNap 从XE2 升级到xe7 首先引用替换Data.DBXJSON 为system.jsonTDSSessionManager 引用的单元为Datasnap.DSSession编译正常,运行程序会出现以下错误, "EIPAbstractError" exception with "No peer with the interface with guid [...]原创 2016-06-06 11:28:13 · 2055 阅读 · 0 评论 -
修正FastReport报表添加参数时候报错 "标识符未宣告: "
FastReport 5.1.11和 FastReport 5.2.3 中 添加自定义变量如rxrprt1.LoadFromFile(ChangeFileExt(Application.ExeName,'.fr3')); frxrprt1.PrintOptions.ShowDialog:=False; frxrprt1.Variables['a']:='AAA'; frxrpr原创 2015-05-26 00:31:50 · 6590 阅读 · 1 评论 -
TcxTreeList显示复选框
var lvID:Integer; lvNode:TcxTreeListNode;begin lvID:=-1; lstTree.Root.CheckGroupType:=ncgCheckGroup; ///显示根复选框 lstTree.OptionsView.CheckGroups:=True; //显示子复选框 lstTree.BeginUpdate; try wi原创 2015-04-02 00:04:39 · 3555 阅读 · 0 评论 -
Delphi 三层框架开发客户端开发
新建一个application如图 添加以下控件代码如下原创 2014-10-24 15:04:14 · 5635 阅读 · 6 评论 -
Delphi 三层框架开发 服务端开发
采用Delphi7+SQL2008首先创建数据库和表原创 2014-10-24 14:40:15 · 21465 阅读 · 8 评论 -
Indy10 接收邮件正文和标题 出现乱码
修改IdMessageClient.pas原创 2014-09-16 14:28:39 · 2151 阅读 · 0 评论 -
Delphi实现vista,win7,wiin8 下拖拽功能
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellAPI;type TForm1 = class(TForm) btn1: TButton;原创 2014-08-22 15:33:57 · 1604 阅读 · 0 评论 -
ADO连接使用SQLNCLI11,则查询支持查询XML字段类型
ADO 应用程序需要在其连接字符串中实现以下关键字:Provider=SQLNCLI11DataTypeCompatibility=80转载 2014-03-04 09:51:13 · 2299 阅读 · 0 评论 -
DBChart 实现多个字段 柱状态图表显示
开发环境 Delphi XE2最近做一个项目 需要显示每个部门的收发件数,数据集如下类型 总件数 已结算件数 未结算件数 客户 5000 3000 2000 业务员 3000 2000 1000 unit Unit2;interfaceuses Winapi.Windows, Winapi.Messa...原创 2019-10-09 12:36:23 · 756 阅读 · 0 评论