随笔分类 -  delphi常见问题

52张牌随意发
摘要：uses SysUtils,Classes;type CardType=array[0..3] of string; const CardNums=12;type RCardrecord=record CardInfo: string; end; PCard=^RCardrecord;var slist: TList; i,j: Integer; iSub,iSpare: Integer; sCardType,sCardNum: string; aCard: PCard; iRandom,iCount: Integer; tCardInfo: string; aCardType: CardTy 阅读全文
posted @ 2013-08-14 17:31 露水上的青蛙 阅读(249) 评论(0) 推荐(0)
顺序查找和二分查找
摘要：{线性的顺序查找}function seqSearch(sArr: array of Integer;aCount: Integer;const index: Integer):Integer;var i: Integer;begin Result := -1; for i := 0 to aCount do if sArr[i]=index then begin Result := i; Break; end;end;{对数性的二分查找}function binarySearch(sArr: array of Integer;aCount: Integer;const index: Inte 阅读全文
posted @ 2013-08-14 15:43 露水上的青蛙 阅读(372) 评论(0) 推荐(0)
DES加密算法
该文被密码保护。
posted @ 2013-06-27 15:00 露水上的青蛙 阅读(0) 评论(0) 推荐(0)
AES加密算法（2007）
该文被密码保护。
posted @ 2013-06-27 14:59 露水上的青蛙 阅读(1) 评论(0) 推荐(0)
用Delphi创建服务程序
摘要：用Delphi创建服务程序日期：2005年11月29日 作者：sunmohe 人气： 3154 查看:[大字体 中字体 小字体]Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:(1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.运行Delphi7,选择菜单File-->New-->Other--->Service Appl 阅读全文
posted @ 2013-06-24 15:35 露水上的青蛙 阅读(274) 评论(0) 推荐(0)
dbgrid显示access备注信息
摘要：procedure TfrmAllFind.DBGrid6DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if(column.field = dgSendedDetail.DataSource.DataSet.FieldByName('要素值')) then begin dgSendedDetail.Canvas.FillRect(Rect); dgSendedDetail.Canvas.TextO 阅读全文
posted @ 2013-06-24 11:10 露水上的青蛙 阅读(234) 评论(0) 推荐(0)
stringgird中使用TClientDataSet排序的问题
摘要：function TfrmMain.createIIReport(cdsBody: TClientDataSet; silent: Boolean): String;var s,sText: String; i: Integer; sTail: String; sSpace: String;begin try try sTail := #13#10; sSpace := ' '; sText := '<?xml version="1.0" encoding="GBK"?>' + sTail; cdsBody.D 阅读全文
posted @ 2013-06-18 09:43 露水上的青蛙 阅读(187) 评论(0) 推荐(0)
传输功能功能分析
摘要：1.分析目前有那几种文件传输方式，并比较优劣 阅读全文
posted @ 2013-05-03 16:55 露水上的青蛙 阅读(175) 评论(0) 推荐(0)
安装EhLIb110.bpl遇到的问题
摘要：Package C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Bpl\EhLib110.bpl can't be installed because it is not a design time package.解决办法：把编译好的EhLib110.bpl放到System32下在Component->Install Packages中添加EhLib110.bpl 阅读全文
posted @ 2012-10-25 09:25 露水上的青蛙 阅读(283) 评论(0) 推荐(0)
socket通信完整实例
该文被密码保护。
posted @ 2012-10-11 09:33 露水上的青蛙 阅读(6) 评论(0) 推荐(0)
var和public的区别
摘要：public是定义在类里的，属于类成员变量。var分2种，一种是定义在单元里的，属于单元的全局变量。一种定义在函数体里，属于函数的局部变量。 阅读全文
posted @ 2012-09-27 09:58 露水上的青蛙 阅读(523) 评论(0) 推荐(0)