- 博客(6)
- 资源 (1)
- 收藏
- 关注
原创 日期排序 deque
<br /><br />struct MyStruct<br />{<br /> AnsiString Date;<br /> TDate ToDate()const{return StrToDate(Date);}<br />};<br />bool aa(const MyStruct &r,const MyStruct &t)<br />{<br />return r.ToDate() < t.ToDate();<br />}<br />//#include<iostream
2010-06-26 00:54:00 325
转载 bde 发布
<br />从网上找到的文章 <br />InstallShield Express制作Delphi数据库安装程序 <br />关键所在 <br />用Delphi编写的数据库程序在发布时需要同时发布BDE(Borland Database Engine),但BDE占用空间较大(不同版本大小不一,最新的Delphi5有17M多),远比一般的程序本身要大。但实际上,有些文件用不上的,所以我们可以在发布时用Delphi附带的InstallShield制作安装程序来定制BDE驱动,这样可以精简
2010-06-25 07:40:00 742
原创 ole 读写 excel
<br /><br />Variant ea,wb,s,s1;<br /> <br /> ea = Variant::CreateObject ("Excel.Application");<br /> ea.OlePropertySet("Visible", (Variant)false);<br /> wb=ea.OlePropertyGet("Workbooks");<br /> wb.OleFunction("add",-4167);<br />
2010-06-24 05:49:00 647
原创 关于继承于TCheckListBox的子类对 Items属性的修改
在子类中重写了父类的属性__property TStringList* Items = {write = witem, read = ritem};void __fastcall witem(TStringList* s);TStringList* __fastcall ritem();在这个属性的读写函数中,可以对Items指针的地址进行操作和修改,得到完整的数据并加入自己的代
2007-04-12 17:20:00 806
原创 对于文件在窗口之间拖放的补充
之前使用网上下载的CDataSource、CDataObject—等等类实现了 对文件拖放的目的。然而,此类原码竟是VC++代码。并且拖放时,鼠标下文件图标的显示也并不能实现。因此,自己从收集到的资料BCB的原码。拖放的原码网上比较多,且简单。因此在此说明一下对于显示图标的步骤:首先,对于CDataObject类的SetData方法,不能把非TYMED_HGLOBAL数据排除在外。
2006-11-12 09:58:00 1978
原创 关于在不同程序间拖放文件的实践记录
由于最近的一个项目需要实现与其它程序的文件拖放(拖进/拖出),而手上没有现成的控件.在网络上也找不到合适的原代码.因此,决定自己做了一个.它是继承于TLlistView类的.对于拖进文件可以用简单的函数实现:步骤为: No. 1在构造或初始函数中,注册接受窗口DragAcceptFiles(ListView->Handle,true); No.2加入窗口响应消息的函数,并使用DragQ
2006-11-02 12:42:00 1305
家庭记帐簿
2007-05-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人