摘要：
function readinifile(filename,section,ident:string):string;? //读取配置文件var? ini:tinifile;begin? ini:=tinifile.create(filename);? result:=ini.readstring(section,ident,);? ini.free;end;
procedure writei......
摘要：
vcl中的shape是个很不错的控件，可以选择几种图形，以满足我们的需求，但有时候就是觉得它的可选图形少了一点，比如我们想要一个三角形，它却没有。于是就想到来扩展一下这个控件，名为shapeex。其实扩展的功能不多，只是增加了一些图形。而类也并不是继承自tshape，而是继承自tgraphiccontrol，这样可以让我们彻底看看图形控件的做法。tshape也是继承自tgraphiccontro......
自定义DataSet，并写入数据
新建一 dataset , 并加入数据 : preparetable
function tfrm_print.createtableinmemory(const afielddefs:tfielddefs):tdataset; 【程序编程相关:
DLL全局钩子】 【推荐阅读:
Delphi下用WindowsAPI创建】var 【扩展信息:
只允许建立一次子窗体的MDI程序】 temptable:tclientdataset; begin temptable:=nil; result:=nil; if afielddefs<>nil then begin try temptable:=tclientdataset.create(application); temptable.fielddefs.assign(afielddefs); temptable.createdataset; result:=(temptable as tdataset); except if temptable<>nil then temptable.free; raise; end end; end;
procedure tfrm_print.createdataset(var gdataset:tdataset);
...
下一页 摘要：
接下来要动手来做一个组件了，我想了一个计数器组件，功能方面是比较简单的，但这不是本章的重点，这一章的重点是说明一个组件的制作全过程。在其中可以学到很多组件制作的技巧，当然这些也是我从书上学得的。好了，开始制作吧： 这是一个可以计数的组件，为了简单，我以秒为单位，当开始时，他就从0开始增加，并显示出来，到3600时，它又回到0，如此循环。当然它也可以停止，暂停，继续。另外，他还有一个时间事件，即可......
