2015年05月_得码刘永锋

09月 08月 06月 05月

转载 delphi低版本升高版本问题

首先声明，本帖更新时间不固定。另外，只愿意使用d7者勿入。为了节省篇幅，d7之前的就不提了。d7之后，对升级影响比较大的版本有这些：delphi2009，xe2以及xe5。2009开始string默认为unicode，xe2引入firemonkey，xe5支持手机开发。高版本的其它一些新特性，比如泛型，闭包，增强的rtti，dbexpress，helper等

2015-05-26 00:05:38 1193

转载关于string和pchar

Delphi 中字符串的操作很简单，但幕后情况却相当复杂。Pascal 传统的字符串操作方法与Windows 不同，Windows吸取了C语言的字符串操作方法。32位Delphi中增加了长字符串类型，该类型功能强大，是Delphi 确省的字符串类型。字符串类型在Borland公司的Turbo Pascal和16位Delphi中，传统的字符串类型是一个字符序列，序列的头部是一个长度字节

2015-05-26 00:02:38 2227

转载 cxgrid使用小结（3）：分组

订单号商品名单价数量金额001 aa 11.00 2 22.00001 bb 2.00 2 4.00001 cc 3.00 3 9.00----------------------合计 7 35.00002 ee 11.00 2 22.00002 bb 3.00 2 6.00002 cc 3.00 3 9.00------------------

2015-05-26 00:01:16 2205

转载 cxGrid 部分使用方法(2)

激活内置编辑控件1) .Controller.EditingController.ShowEdit(); 2) .Controller.EditingController.StartEditShowingTimer(); 3) .Controller.EditingItem := ; 4) .Editing := True;隐藏内置编辑控件 .Controller.

2015-05-25 23:59:29 904

转载 SQL Server创建存储过程 [转]

什么是存储过程？q 存储过程（procedure）类似于C语言中的函数q 用来执行管理任务或应用复杂的业务规则q 存储过程可以带参数，也可以返回结果q 存储过程可以包含数据操纵语句、变量、逻辑控制语句等存储过程的优点(1)执行速度快。存储过程创建是就已经通过语法检查和性能优化，在执行

2015-05-25 23:57:58 356

转载 cxGrid 部分使用方法(1)

ExpressQuantumGrid4的cxGrid的一些使用方法和经验 1.简单介绍：cxGrid右下方的cxGrid1Level1是表示Grid表的层，cxGrid可以有多层，这相当于集合了PageControl的功能,而cxGrid1Level1右边的cxGrid1DBTableView1相当于DBGrid一样。右击cxGrid1可以添加cxGrid1Level2，右击

2015-05-25 23:57:47 2540

MES即制造执行系统，能通过信息传递，对从订单下达到产品完成的整个生产过程进行优化管理。当工厂中有实时事件发生时，MES能对此及时作出反应、报告，并用当前准确的数据对它们进行约束和处理。这种对状态变化的迅速响应使得MES能够减少企业内部那些没有附加值的活动，有效地指导工厂的生产运作，同时提高了工厂及时交货的能力、改善了物料的流通性能，提高生产回报率。MES还能通过双向的直接通讯在企业内部和整个产品

2015-05-25 21:51:59 2622

转载 Delphi/Free pascal 终极流化技术

流化技术，有些编程语言中也称为序列化技术，亦即把一个对象的状态保存到一个文件中，也可以逆向从文件中读取内容以初始化这个对象。 Object Pascal语法提供不完全流化的能力，仅支持对Published属性的流化/反流化操作，对private、public及protected属性则无能为力。在Delphi/Free pascal的VCL类库体系中，处于金字塔次顶

2015-05-25 21:49:24 1551

转载 Delphi数据库的拼音检索(查询)方案-汉字转换成拼音

Delphi数据库的拼音检索(查询)方案-汉字转换成拼音昨夜看到一篇文章，可以用Delphi将汉字->拼音，可是将拼音转换成汉字又该如何操作哪？我的数据库：通讯录软件缺少用拼音查找功能.结果，搞到12点还是无果！唉！中午找到输入拼音可以检索汉字，可是在数据库中怎样实现哪？2个小时，无果！今天实现: 1.首先建立字库；2.检索：先从数据库读出

2015-05-25 21:46:35 1901

原创 delphi 两个有意思的函数

此函数可以用variant返回多个字段的值function TDataSet.GetFieldValue(const FieldName: string): Variant;var I: Integer; Fields: TList;begin if Pos(';', FieldName) begin Fields := TList.Create

2015-05-25 19:24:58 501

转载轻松实现DBGrid的多表头

轻松实现DBGrid的多表头 hj0791（原作）关键字多表头用法：设置DBGrid的Column的Caption属性例如：Column1的Caption为111|222 Column2的Caption为111|333 那么Column1和Column2公用一个表头111unit

2015-05-25 19:21:57 2640

转载 Delphi 怎样把TParams 或 record写到流里面

type TRec=Record msg:string; pic:TMemoryStream;end;procedure TForm2.BitBtn1Click(Sender: TObject);var ms:TMemoryStream; Rec1,Rec2:TRec; cc:tmemorystream; jpg:TJP

2015-05-25 19:14:03 1114

转载如何将TParams类型转为Variant？[转]

如何将TParams类型转为Variant？InParam :TParams;提供的函数为function ExecProc(const ProcName: AnsiString; const InParam: Variant): Integer;如果直接调用ExecProc('SP_Name', InParam)编译通不过如何将InParam转为Variant?

2015-05-25 19:05:42 610

原创 [DCC Error] E2161 Error: RLINK32: Error opening file "_____.drf"

关于这个问题：有两种解决方法（本人用两种方法都解决过这两个问题，不过比较偏向于后一种解决问题本质）1.修改build control 为 Explicit rebuid2.清除环境变量里面的多余的路径：

2015-05-25 19:01:56 2085

转载深刻理解TNotifyEvent [转]

function OnButton1Click(Instance, Sender: TObject);begin showMessage(Instance.ClassName); showMessage(Sender.ClassName);end;var event: TNotifyEvent;TMethod(event).Data := Button1;T

2015-05-25 18:59:09 445

转载 StarTeam client compare 设置

StarTeam supports integration with third-party Compare and Merge tools. To use Guiffy with StarTeam: 1) Select Tools\Workstation Options from the menu bar. The Workstation Options dialog opens. 2)

2015-05-25 18:58:19 488

原创我的云设计

我开发的风控计算服务程序和高速行情服务中，无意中已经有了云的雏形。 1.有了分片计算的概念。分片计算中，特殊点1是对访问结束点的判断，结束点判断有两种：一种是计数器判断法，一种是复杂逻辑判断法。2是队列的使用，3是分片任务的优先级的控制。计算任务可能是不停的在分解的，有时候子任务无穷分解时，会产生很多中间数据，这些中间数据如果不迅速处理掉，会耗尽系统资源；所以这时候就得考虑子任务的优先级

2015-05-25 18:51:02 453

原创 sql存储过程insert 后的错误检查很重要。否则出错前台无法知道

insert CBC_PRecvGoodsOutDetail(Porder, InPorder, Code, InType, OutQty, Price, PurPrice, OutTotal, salePrice,-- Unit, PosNo, LotNo, TgtSiteNo, Src

2015-05-25 18:49:54 1992

转载 Delphi中的INI文件编程（转）

Delphi中的INI文件编程整理编辑：China ASP ---- INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi3提供了一个TInifile类，使我们可以非常灵活的处理INI文件。一、有必要了解I

2015-05-25 18:46:49 593

原创快速合并两个TList【delphi7】

procedure TfmPubClient.AddList(Source, Dest: TList);var a1count_old: Integer;begin a1count_old := Dest.Count; Dest.Count := Dest.Count + Source.count; System.Move(Source.list^[0], Des

2015-05-25 18:17:10 1651

原创 delphi xe7:Data.DBXMSSQL不能使用在android平台

今天写delphi xe7下的一个多平台的安卓程序,本来好好的程序,突然有如下提示:ClientModuleUnit2.pas(8): F1026 File not found: 'F:\2.work\9031.DataSnapDemo\clientMuti\Data.DBXMSSQL.dcu' (unit scope "Data" indicates Android, iOSDevice

2015-05-25 18:14:20 1680

“狐狸” 可编程串口调试工具

开发串口设备（包括移动蓝牙设备）功能，经常需要使用到串口调试工具，关于串口调试工具，网上有很多非常不错的使用简单的调试工具，但是都是比较早期的，比如对于编码的支持都不好，基本上都只能发送ANSI编码的字符串，如果需要发送Unicode或者UTF-8的编码字符串就没有办法，需要自己编好码再发送；另外，不能根据接收到的数据通过编程自动实现通信协议返回数据，只能通过手工，这样就不能满足全流程协议测试，就很不方便。基于此，我们开发了一款”狐狸“可编程串口调试工具，最大的亮点是可以发送、查看任何编码数据格式；可以编程(Pascal Script)实现串口自动回复数据。”狐狸“可编程串口调试工具是一款免费工具，调试串口设备的得力工具。常用的数据回复模板都已经提供，会Pascal的就直接可以上手。该工具如果配合【蓝牙模块通过USB转串口】的通用板子，就可以调试任何蓝牙协议。比如你需要开发一款蓝牙温度计，通过手机APP或者小程序链接温度计，查看温度，开发过程中，可以不需要先有这款蓝牙温度计，可以通过【蓝牙模块通过USB转串口】的板子结合”狐狸“可编程串口调试工具先调试手机端，完全实现手机端的功能，最后再直接使用蓝牙温度计就可以和手机通信了，非常方便，并行开发极大提高效率。希望”狐狸“可编程串口调试工具对有需要的朋友有帮助。

2018-10-16

“花豹”代码高亮专家

作为编程人员，设计人员不免经常需要书写技术文档，文档中经常需要嵌入程序代码，JSON或者XML结构，但是在Word中不能像在程序编辑器中那样，能够高亮显示，清晰美观。程序拷贝到Word中，为了美观就需要自己手工来高亮，费时费力不容易实现，我就经常遇到这样的问题，所以就写了一个“花豹”代码高亮Word插件，能够自动一键高亮程序代码，使文档中的程序代码美观，专业，支持Office2007-2016 X32和X64版本，Office版本自动识别。目前支持20中常用的程序代码格式，例如：delphi，C#，Java，JavaScript，Perl，C++，Python，JSON，XML，SQL，HTML，CSS，VB等等。欢迎同行使用指正！

2018-10-09

delphi红黑树源码

delphi编写的，从网上下载的红黑树实现. 欢迎大家下载

2009-12-29

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

刘永锋的专栏