
pascal
文章平均质量分 62
fjw8205
喜欢新的事物,新技术,熟悉Delphi开发,对java比较感兴趣。
展开
-
字符串转字节数组。
一个字符串转换为字节数组的函数。function ASCIIStrToHexByteArray(const P:PChar;var Buf:array of byte):integer;var I:integer; OldP:PChar;begin OldP:=P; I:=0; while (OldP+1)^#0 do begin Buf[I]:=StrToInt($原创 2007-08-16 00:07:00 · 1340 阅读 · 0 评论 -
在Win32 Delphi 模拟多播事件
原文地址:http://delphi.about.com/library/weekly/aa051005a.htm 在Win32 Delphi OOP中,通常一个组件的事件句柄只能关联一个方法。而在Delphi的.Net版本,多个事件处理代码能够被绑定到一个相同的事件上面。这篇文件将为你介绍一个在Win32 Delphi 模拟多播事件的方法。当你用Delphi开发应用(32位)程序的时候,你总是要写一些代码去处理组件的事件。比如说,你拖一个按钮在一个窗体上,然后双击这个按钮,一个空的事件句柄将被创建,也翻译 2010-12-16 13:15:00 · 1028 阅读 · 0 评论 -
Delphi 单精度浮点数与字节数据的相互转化处理
<br />最近看modbus的协议需要用到浮点数的转换,原本想着还要照着IEEE的浮点数结构自己来搞,Google下原来有更好的解决方案,粘贴下来以备不时之需,贴代码(代码仅作示意,自己整理下) :<br />1、字节数组转为Single,传入参数自己处理下,嘿嘿<br />function BytesToSingle():Single;var bSingle:array[0..3] of byte;begin//49E48E68 bSingle[3] := $49原创 2010-12-14 16:19:00 · 8111 阅读 · 0 评论 -
delphi的取整函数round、trunc、ceil和floor
1.Round(四舍六入五留双)功能说明:对一个实数进行四舍五入。(按照银行家算法) 例:var i, j: Integer;begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2end;在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样:采用的是四舍六入五留双。即当舍或入位大于或小于五时按四转载 2010-05-13 22:39:00 · 1118 阅读 · 0 评论 -
“可怕的”System.Move函数!!!
遇到点儿小问题,写下来做个记号,也做个警示,呵呵 说这个函数可怕其实是因为自己使用不当,下午的时候一个小程序搞了一下午时间也没能搞定一个内存访问冲突的bug。最后费了九牛二虎之力好不容易检查到,是距离实际错误点儿N行之外的一个Move导致的,这才想起来Move是没有边界检查的,肯定是Move的时候不小心越界了。 找到问题肯定就容易解决了,三下五除二搞定,不过原创 2009-11-06 00:19:00 · 936 阅读 · 0 评论 -
Delphi2009(Tiburon)强化 DataSnap 技术
Delphi now provides a new component based DataSnap server technology. Existing applications can host their RemoteDataModules inside this new DataSnap server. Our new DataSnap server does not support t转载 2009-03-24 14:26:00 · 1403 阅读 · 0 评论 -
消除类之间的相互引用
理论相互引用是指两个类之间相互引用了对方。从类图上看,引用箭头是双向的。相互引用是一种不够良好的设计。从高层次(设计)来说,类之间的引用关系应该是单向的,如果类A了解类B,说明在某种程度上类A比类B的层次要高一些,如果同时类B也了解类A,则说明类的设计有问题,两个类有混杂的部分,比如可能类的职责不够单一,或者类的职责不够明确,总之类的设计者没有把二者的关联分析清楚。应考虑重新设计一下,比如转载 2009-03-21 20:48:00 · 3070 阅读 · 0 评论 -
Delphi2007新功能 -- 有限的栈对象
今天使用Delphi2007,一个误输入,无意中发现Delphi2007的record类型居然能够和TObject一样定义方法和属性,而且不需要调用类似TObject.Create方法就能生成一个record对象。这是否意味着Delphi2007也能和C++一样,不仅能使用堆对象(new),也能使用栈对象(静态对象)呢? 通过实验,答案是肯定的!这使我感到很兴奋,因为Delp转载 2008-08-28 14:14:00 · 770 阅读 · 0 评论 -
Delphi 进制转换——十六进制 to 十进制浮点数
//十进制 to 二进制function IntToBin(Value: LongInt;Size: Integer): String;var i: Integer;begin Result:=; for i:=Size-1 downto 0 do begin if Value and (1 shl i) Result:=Result+1; end else begin转载 2008-08-26 00:59:00 · 5158 阅读 · 0 评论 -
Delphi小技巧
今天偶尔在csdn论坛看到些不错的东西,贴来大家瞧瞧:---------------------------我认为自己最能拿出手的东西, 可以做个基类使用,主要功能就是是子类的用户输入控件可以自动变色, 不必考虑种类繁多的第三方控件, 只要是有Color,OnEnter,OnExit,OnChange属性就行。 unit Ufrmbase; interface uses Win转载 2007-12-17 22:19:00 · 760 阅读 · 0 评论 -
Upgrading to Indy 10
1148Upgrading to Indy 10Chad HowerAtozed SoftwareAbstract: This session covers the changes made to Indy 10 and how to quickly port existing code. It also covers the advantages of Indy 10 and why you s转载 2007-08-23 17:19:00 · 3537 阅读 · 0 评论 -
用TWebBrowser 组件 POST 数据和预览 HTML 片段
相信 Delphi 中 TWebBrowser 组件大家都比较熟悉,用它自己进行制作浏览器非常简单,论坛中和文档中心中都谈了很多,我这里主要想谈两个两个问题:如何用 TWebBrowser 组件 POST 数据?如何用 TWebBrowser 组件预览 HTML 文档片段?因为工作需要,需用用到 TWebBrowser 组件的 POST 功能,查了优快云上的很多文档都没有介绍,只有一篇转载 2007-08-19 03:39:00 · 2842 阅读 · 0 评论 -
视频:连接 Android应用和DataSnap服务-巴西 2010 Delphi 大会
原文地址:http://www.andreanolanusse.com/blogen/video-connecting-android-applications-with-datasnap-server-delphi-conference-brazil-2010/?utm_source=rss&utm_medium=rss&utm_campaign=video-connecting-android-applications-with-datasnap-server-delphi-conference-bra翻译 2010-12-22 10:48:00 · 1162 阅读 · 0 评论