RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧

delphi消息发送字符串

delphi消息发送字符串其实不论什么方法,归根揭底都是通过传递对象的指针来达到效果的。方法一:procedureSendString(strMSG:string);varData:tagCOPYDATASTRUCT;pBuf:PChar;beginGetMem(pBuf,Length(strMSG)+1);try…
类别:技巧 标签: 作者:admin 日期:2013-01-24 13.20.39

delphi 服务端日志记录

服务端日志记录procedureLogInfo(msg:string);//功能:服务端日志varp:PChar;begintryGetMem(p,(Length(msg)+1)*sizeof(char));Move(msg[1],p^,(Length(msg)+1)*sizeof(char));PostMessage(Application.MainForm.Hand…
类别:技巧 标签: 作者:admin 日期:2013-01-24 13.18.45

delphi树的一些操作

delphi树的一些操作生成一棵树方法一:procedureMakeTree(Query:TQuery;TreeView:TTreeView);varList:TStringList;Node:TTreeNode;Index:Integer;beginTreeView.Items.BeginUpdate;tryTreeView.Items.Clear;List:=TS…
类别:技巧 标签: 作者:admin 日期:2013-01-24 13.11.51

delphi 树

delphi树unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Con****ols,****s,Dialogs,DB,ADODB,S****C****ls,ComC****ls,Grids,DBGrids;typePNodeRec=^TNodeRec;TNodeRec=recordid:s***…
类别:技巧 标签: 作者:admin 日期:2013-01-24 13.11.02

delphi关于延迟时间的一点智慧

delphi关于延迟时间的一点智慧一般的做法:Sleep(2000);//延迟2秒此种做法有俩个弊端:(1)如果实际需要的延迟时间不需要2秒,则明显有延迟时间浪费;(2)如果实际需要的延迟时间超过2秒,则很可能发生不可预料的错…
类别:技巧 标签: 作者:admin 日期:2013-01-24 13.10.33

delphi 5-7 桥接让delphi XE2 DATASNAP中间层支持DELPHI低版本开发客户端

delphi5-7桥接让delphiXE2DATASNAP中间层支持DELPHI低版本开发客户端xe2DATASNAP出来一年了。相信许多人同我一样领略它开发中间层的快捷(相对老的MIDAS确实简便了许多)。但苦于自己有许多的老系统是用DELPHI7甚至D…
类别:技巧 标签: 作者:admin 日期:2013-01-24 13.09.25

delphi7调用delphi XE2 中间层注意事项

delphi7调用delphiXE2中间层注意事项1.字串统一使用WIDESTRING类型2.客户端调用适配器DLL时,参数传DELTA,不要传TCLIENTDATASET
类别:技巧 标签: 作者:admin 日期:2013-01-24 13.03.40

delphi TStringList的DelimitedText的空格问题

网络时间校对proceduresetLocalDateTime(Value:****ateTime);varlSystemDateTime:TSystemTime;beginDateTimeToSystemTime(Value,lSystemDateTime);SetLocalTime(lSystemDateTime);end;
类别:技巧 标签: 作者:admin 日期:2013-01-24 12.48.16

delphi tercel99 编程笔记

VCLSkin的使用
类别:技巧 标签: 作者:admin 日期:2013-01-20 10.50.03

delphi中的record怎么动态分配内存?

//定义结构体TNodeInfoEx=RecordNodeID:Integer;ParentID:Integer;end;PNodeInfoEx=^TNodeInfoEx;//向树上加结构体procedureAddItem(TV:TTreeView);varPTreeItemEx:PNodeInfoEx;beginNew(PTreeItemEx);PTreeItemEx^.…
类别:技巧 标签:record 作者:admin 日期:2013-01-20 10.34.00

delphi 如何得到动态链接库的输出函数tdump命令

有的时候,我们需要查看一个动态链接库的输出函数列表,有很多软件可以满足此要求,比如说exeScope。不过,去下载一个软件总归是很麻烦,Delphi本身就自带一个类似的工具,那就是tdump.exe,Delphi的所有版本都有,是…
类别:技巧 标签: 作者:admin 日期:2013-01-20 10.21.52

delphi 把窗体上的所有EDIT清空怎么做

procedureTForm1.Button1Click(Sender:TObject);vari:integer;beginfori:=0toself.ComponentCount-1dobeginif(self.Components[i]isTedit)thenbeginTedit(Components[i]).Clear;;end;end;end;
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.24.45

delphi Sender 的用法举例

unitSender;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,CheckLst;typeTForm1=class(TForm)Button1:TButton;Button2:TButton;Button3:TButton;Button4:TBut…
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.13.59

delphi 子界判断的举例

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject);private{Privated…
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.13.32

delphi 获取当前光标处颜色的例子

procedureTForm1.FormKeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);varDC:HDC;XY:Integer;beginX:=Mouse.CursorPos.X;Y:=Mouse.CursorPos.Y;ifKey<>VK_ReturnthenExit;DC:=GetDC(0);Color:=GetPixel(DCXY…
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.13.04

delphi 切换大小写的例子

CapLock(True);(*大写*)CapLock(False);(*小写*)//(*键盘大小写锁定*)ProcedureCapLock(bLockIt:boolean);VarLevel:Integer;KeyState:TKeyBoardState;beginLevel:=GetKeyState(VK_CAPITAL);GetKeyboardState(KeyStat…
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.07.42

delphi 用拼音首字符检索汉字的源代码

在日常工作和生活中我们经常使用电子记事本查找个人通讯录信息,或在单位的应用程序中查询客户档案或业务资料,这个过程中往往需要输入大量的汉字信息,对于熟悉计算机的人这已经是一件头疼的事,那些不太熟悉计算机…
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.03.04

delphi 设计一个有渐变色的标签

unitMLabel;interfaceusesWindowsMessagesSysUtilsClassesGraphicsControlsFormsDialogsStdCtrls;typeTColorStyle=(HorizontalVertical);typeTMLabel=class(TLabel)privateCRedCGreenCBlue:Integer;incRedincGreenin…
类别:技巧 标签: 作者:admin 日期:2013-01-06 09.58.46

delphi 转数字为大写金额源代码

functionTForm1.NumToChnStr(Value:Real;ClearZero:Boolean):String;constChnUnit:array[0..13]ofstring=('分','角','元','拾','佰','仟','万','拾','佰','仟','亿','拾','佰','仟');ChnNum:array[0..9]ofstring=('零…
类别:技巧 标签: 作者:admin 日期:2013-01-06 09.58.23

Delphi和金山词霸制作批量单词翻译

本人利用Delphi和金山词霸2002特别制作了一个单词批量翻译,并且可以将翻译结果直接保存为RTF文件的程序。其程序界面如下:原理分析:利用“金山词霸2002”的翻译功能,进行单词的翻译,利用Delphi获取“金山词霸200…
类别:技巧 标签: 作者:admin 日期:2013-01-06 09.38.01