简洁技术，简单生活

TBase=classpublicprocedure aaaa();procedure doaaaa();virtual;end;procedure TBase.aaaa()begin    doaaaa();end;procedure TBase.doaaaa();begin     a.function;end;------

- 阅读全文 -

一直以来，发现label中显示中文的时候，总是有后面一两个字不能完全显示。 解决办法：设置本身或者父窗体的font属性，一般是宋体、9号、字符集：gb2312。

- 阅读全文 -

转自【http://blog.csdn.net/lee576/archive/2007/09/25/1800576.aspx】在《强大的DELPHI RTTI--兼谈需要了解多种开发语言》一文中，我说了一下我用DELPHI的RTTI实现了数据集的简单对象化。本文将详细介绍一下我的实现方法。首先从一个简单的例子说起：假设有一个ADODataSet控件，连接罗斯文数据库，SQL为：select * f

- 阅读全文 -

可以用PostThreadMessage,例如：      //发送线程   Procedure TThread1.Execute; var sMes:String; pMes:^String; iTemp:Integer; begin s

- 阅读全文 -

转自：solidot由于某些原因，我们会被禁止访问某些特定的网站，WebStuffScan列出了10个突破屏蔽的方法。很多你可能都知道，比如直接使用IP地址，匿名代理服务器，但还有一些比较特别的：1.使用IP地址，将域名转换称IP地址，网络上有许多这样的工具如hcidata。2.Google cache3.匿名代理服务器，如Proxify，Anonymouse。4.使用在线翻译工具5.使用Goog

- 阅读全文 -

项目中使用TThreadList存储客户端的socket连接线程，在有连接时加入到列表，断开时，从列表删除加入时： procedure TFrmMain.ServerConnect(AThread: TIdPeerThread); var NewClient: PClient; begin GetMem(NewClient, SizeOf(TClient)); NewClient

- 阅读全文 -

定义了如下两个类型 TChannelType = (ctUser, ctTrunk, ctEmpty, ctRecord, ctMessage, ctFax, ctVirtual); // 通道状态 TChannelStatus = ( csFree, // 空闲 csOffHook, // 摘机 csDial, // 拨号 csWaitingSi

- 阅读全文 -

          正常情况下，我们都是习惯于直接把结果当作函数的结果返回例如：1）functiongetCommList:TStrings;var           sl:TStrings;begin&nb

- 阅读全文 -

最近一个项目使用ReportBuilder生成报表，有个标题用Label表示，需要从程序中传递到report里，最先，直接使用 ppLabel编译通过，但是，在第一次生成报表的时候，在这一句代码停留了很长一段时间，导致性能太差。后来，在report designer里面的calc，看到有label事件，onGetText，知道是赋值给label用的，但是，用了许多方法，都是因为不知道怎么使用cal

- 阅读全文 -

在delphi中，使用DBCHART，在鼠标移动的时候，用hint显示鼠标当前位置的信�?/P>Call application.CancelHint to remove the old hint,the application.ActivateHint to show the new hint.消息来至

- 阅读全文 -