摘要：希望我不要下定决心放弃borland与delphi 用了delphi好几年了,感觉很好,borland的传道者李维先生更是对delphi情有独钟,甚至在<inside vcl>中直呼"vcl 万岁",看了那本书,也被李先生的感情所激励,和delphi有好几年的感情了,纵使在当前java和.net大行真道的今天,也希望delphi能重新振作起来,虽有了delphi8的......
摘要：我的主页: http://www.tommstudio.com/ 在delphi中，也有与c相似的预编译指令，虽然该类指令只在当前的单个文件有效（也有可能是笔者未全面了解该类指令的真正用法），但是这一类指令对于进行多版本的制作工作（如从标准版中出学习版），确实有着相当不错的用途。 一．指令介绍： 1．define指令： 格式：{$define 名称} 说明 ：用于定义一个在当前单元有效的符号（sy......
利用极品五笔刷QB程序原代码
//----------------------------------------------------------// 输入发漏洞程序1.0 【程序编程相关:
DBGrid单元格画圆圈
】 【推荐阅读:
在Delphi中通过函数获取GUID
】file://---------------------------------------------------------- 【扩展信息:
[原创] 将多个jpg文件以追加形式合并】 unit papp; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, extctrls, menus, comctrls; file://定义键盘动作类 type tkaction = (ctab, tab_f4, enter, alt_u); type tfrmmain = class(tform) opendlg: topendialog; panel1: tpanel; btnopen: tbutton; progressbar1: tprogressbar; btnstop: tbutton; btnpause: tbutton; btnsetting: tbutton; btnabout: tbutton; groupbox1: tgroupbox; btnstart: tbutton; timloop: ttimer; groupbox3: tgroupbox; trackbar1: ttrackbar; label3: tlabel; edtapppath: tedit; btnapppath: tbutton; edtsavepath: tedit; btnsavepath: tbutton; label4: tlabel; label5: tlabel; chkautoend: tcheckbox; groupbox2: tgroupbox; image1: timage; label1: tlabel; label2: tlabel; btnhelp: tbutton; chkautoiptext: tcheckbox; timwait: ttimer; savedlg: tsavedialog; openappdlg: topendialog; memip: tmemo; lblweb: tlabel; timkeyaction: ttimer; procedure formcreate(sender: tobject); procedure btnsettingclick(sender: tobject); procedure btnaboutclick(sender: tobject); procedure btnopenclick(sender: tobject); procedure btnstartclick(sender: tobject); procedure timlooptimer(sender: tobject); procedure trackbar1change(sender: tobject); procedure btnstopclick(sender: tobject); procedure timwaittimer(sender: tobject); procedure timkeyactiontimer(sender: tobject); private function getsysdir: string; function get_remote_hwnd: hwnd; function get_ipbox_hwnd: thandle; function get_connecthwnd: hwnd; ...
下一页 摘要：unit udemo33;
//使用break与continue语句和for与continue语句
//※ 利用while循环和break语句，求前多少个自然数（项数）平方之和大于指定的正数。
//※ 利用for循环和continue语句，在26个小写字母中依次选择其ascii为偶数的字母
// 组成的字符串。
//求项数的算法：
//声明局部整体变量：i表示循环变量，sum表示求......
