Delphi
Comer
这个作者很懒,什么都没留下…
展开
-
取汉字拼音首字母的函数
function TMainForm.GetPY1(const hz:string ):string;Var hstrA,hstrB,hstrC,hstrD,hstrE,hstrF,hstrG,hstrH,hstrJ,hstrK,hstrL,hstrM:string; hstrN,hstrO,hstrP,hstrQ,hstrR,hstrS,hstrT,hstrW,hstrX,hstrY原创 2005-11-14 21:07:00 · 2762 阅读 · 0 评论 -
递归的方法画树形结构
在做一个项目的时候,多次用到了递归的方法画树形结构,在网上search了一下,找到的大多都是使用record的方法做的,在csdn的一个帖子上发现了篇不用record方法的递归画树形结构的帖子,整理了一下,和大家共享。 //递归方法画树procedure Addtree(theNode: TTreeNode; parentID:integer; mytree:TRzCheckTree; conn:原创 2005-11-16 08:13:00 · 3438 阅读 · 0 评论 -
管道重定向
摘自:http://community.csdn.net/Expert/topic/4511/4511617.xml?temp=.4288599(没试验过)管道重定向:unit recon;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCt原创 2006-01-12 20:09:00 · 753 阅读 · 0 评论 -
D7下的只能输入数字的控件(类似PB的MaskEdit)
unit ComerMaskEdit;//2005-1-1//comerliang//D7下的只能输入数字的控件(类似PB的MaskEdit) interfaceuses Windows, Messages, Graphics, Forms, SysUtils, Classes, Controls, StdCtrls;type TComerMaskEdit = class(TEdit)原创 2006-01-13 09:03:00 · 778 阅读 · 0 评论 -
用delphi写标准DLL
1.不可以在DLL里面分配字符串空间给调用函数,字符串空间必须在外部分配。2.不可以将字符串作为返回值,你看见那个WIN API有字符串返回值了。3.一般都要传递给函数PCHAR的空间长度,避免字符串空间不足。常见写法fun xxx(ps: pchar; ilen: integer): integervar s: string;begin s := abc; result :=原创 2006-03-16 14:20:00 · 1950 阅读 · 1 评论 -
移动无title窗体
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin //移动窗体,本省窗体没有title,不能移动 if (ssLeft in Shift) then begin ReleaseCapture; SendMessage(Form1.Handl原创 2007-03-01 16:40:00 · 755 阅读 · 0 评论 -
D7下通过ADO连接Excel
网上 ADO连接excel的文章很多了,一直没具体用过,今天正好有个项目要用到,找到很多源代码都不好用。试了好半天,发现是连接字符串不标准的问题,不是多个空格,就是少个空格。既然解决了,顺手收录了,以后就不用search了,下边几个写法能用,区别在哪我也不清楚了。 ADOConnection1.ConnectionString := Provider=Microsoft.Jet.O原创 2007-08-11 09:09:00 · 976 阅读 · 0 评论