- 博客(27)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 从 Delphi 7 到 Delphi 2010
从 Delphi 7 到 Delphi 2010 ( 一 )基本数据类型的变化2010-06-30 12:47-----------------------------------------------------------------------------------------------------------Delphi 7 字节数 Delphi 2010
2010-10-05 21:24:00
1313
转载 有关多语言(繁简转换)
监测系统是简体还是繁体 case GetOEMCP() of 936: begin showmessage(简体) end; 950: begin showmessage(繁体) end; end;------------------------------------------------------/
2007-06-16 02:44:00
942
原创 RemObjectsDataAbstract RDA 多级数据库解决方案
Data Abstract，基于得奖的RemObjects SDK之上，是一个创新的框架，用于创建强大并且可伸缩的多级数据库解决方案。利用它的交叉平台功能，以及从应用代码抽象细节和基础数据库的差别的能力，Data Abstract使您更加容易的建立访问多个不同数据库的应用。先进的工具如Schema Modeler并与开发环境紧密集成，使它利用快速应用开发(RAD)方法简单地建立复杂的数据库访问。优
2007-06-13 14:09:00
999
原创 练练字根
一、字根助记词 11王旁青头戋（兼）五一 12土士二干十寸雨 13大犬三（羊）古石厂 14木丁西 15工戈草头右框七 21目具上止卜虎皮 22日早两竖与虫依 23口与川，字根稀24田甲方框四车力 25山由贝，下框几 31禾竹一撇双人立，反文条头共三一 32白手看头三二斤 33月彡（衫）乃用家衣底 34人和八，三四里 35金勺缺点无尾鱼，犬旁留儿一点夕，
2007-06-12 21:10:00
901
原创 正确安装DevExpress.ExpressQuantumGrid.Suite For D7
1.必须配套安装XP Theme Manager、ExpressLibrary、ExpressExport Library、ExpressDataController、ExpressEditors Library 5和ExpressPageControl 2，已经安装过的则跳过； 2.在Delphi 7中，选择菜单File | Close All（最好这样）； 3.选择菜单Tools
2007-06-12 18:46:00
3861
转载 Delphi释放资源
经过这段时间对delphi中free 和 release 的仔细学习，先总结如下：1。form.free直接释放资源后，调用OnDestroy事件，但是没有将form指针改为nil2。form.release 等待资源不再使用后释放资源，同样不修改form指针为nil，所以在destroy中最好使用 release进行资源释放操作。3。局部变量释放资源时，可以考虑用freeandnil()释
2007-06-05 21:11:00
1600
原创 Delphi的TRegistry注册表类方法详解
GetDataInfo方法Function GetDataInfo(const ValueName:String;Var Value:TRegDataInfo):Boolean;TregDataType=(rdunknown,rdstring,rdexpandstring,rdexpandstring,rdinterger,rdbinary);TregDataInfo=record Regd
2007-06-05 21:09:00
702
转载 Delphi中的INI文件编程
INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi3提供了一个TInifile类，使我们可以非常灵活的处理INI文件。 一、有必要了解INI文件的结构：;注释[小节名]关键字=值...INI文件允许有多个小节，每个小节又允
2007-06-05 05:16:00
572
转载 Delphi中票据凭证的精确打印
Delphi中票据凭证的精确打印 一、概述在银行，税务，邮政等行业的实际工作中，经常涉及到在印刷好具有固定格式的汇款单，储蓄凭证，税票等单据上的确定位置打印输出相关的信息。在此类需求中，精确地定位单据并打印相关信息，是解决问题]的关键。一般情况下，开发者都是通过在打印机上通过重复的测试来达到实际需求。那么，有没有简单有效而又灵活的方法实现上述功能呢？二、基本思路分析上述单据的特征，可以发
2007-06-05 05:10:00
675
原创 注册热键
BOOL RegisterHotKey( HWND hWnd, //响应该热键的窗口句柄 Int id, //该热键的唯一标识 UINT fsModifiers, //该热键的辅助按键 UINT vk //该热键的键值 );
2007-06-05 05:07:00
876
转载 delphi干支农历公式
1. 求星期公式星期=[5+A(实际天数)] mod 72. 干支计算公式六十甲子干支序号，从1-> 59-> 0。六十甲子干支序号=[23+A(实际天数)] mod 603. 二十八宿计算公式二十八宿序号=[23+A(实际天数)] mod 284. 实际天数A的计算A=B(基本天数)+C(闰日天数)B=(计算年-1)*365+(要计算到年的月日天数)例：1984年2月1日的基本天数B
2007-06-05 05:04:00
1822
原创 Delphi中TApplication详解
TApplication是用于Delphi应用程序的类型，该类在单元forms中声明。TApplication是Delphi构造 Windows应用程序所需的类型，其方法和属性集中包括了 Windows操作系统中创建、运行和销毁应用程序等既定的基本操作和属性，因此在用Delphi编写 Windows应用程序时简化了用户和Windows环境之间的借口。 TApplication封装了以下功
2007-06-05 04:57:00
1768
转载 Delphi7的函数集中营
函数集●●●●●●●----------abs(x) 绝对值arctan(x) 反正切cos(x) 传回馀弦函数值exp(x) e的x次幂frac(x) 取小数部分int(x) 取整ln(x) 自然对数sin(x) 传回正弦函数值 sqr(x) x*xsqrt(x) 平方根其它pred(x) pred(D)=C, pred(true)
2007-06-05 04:55:00
4879
原创 Delphi调用外部程序详解
inExec主要运行EXE文件。如：WinExec(’Notepad.exe Readme.txt’, SW_SHOW); ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。 首先必须引用shellapi.pas单元：uses ShellAPI; 1.标准用法 ShellExecute函数原型及参数含义如下： function ShellExecute(
2007-06-05 04:52:00
1321
转载 Format详解(FormatDateTime FormatFloat)
Format首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，但并不多用，所以这里只对第一个介绍：function Format(const Format: string; c
2007-06-05 04:49:00
821
转载 防止同时出现多个应用程序实例之改进
在《Delphi 5 开发人员指南》中第13章中有一篇"防止同时出现多个应用程序实例",代码中给出了一个MultInst.pas单元,工程引用此单元就能防止同时出现多个实例,但实际应用中发现,如果应用程序并没有最小化,第二个实例不能把第一个实例提到最前.下面是我改写的MultInst.pas单元,能解决这个小问题.//======================================
2007-06-05 04:44:00
597
原创 delphi技巧
◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： var xpanel
2007-06-05 04:42:00
970
原创 几个Delphi技巧
1、判断一个字符串是否包含于另外一个字符串的方法例如：if pos(ab,abcd)messagedlg(ab是包含于abcd,mtConfirmation,[mbYes, mbNo],0);pos(obj,target) 在target字符串中找出第一个出现obj的第一个字符位置,如果找不到,返回0.2、如何使窗口全屏，类似游戏一样，而不是窗口的最大化! (1) BorderStyl
2007-06-05 04:30:00
686
原创 Delphi的编程规则
大多数Delphi程序员都像使用Visual Basic 那样使用他们手头上开发工具，而丝毫没有意识到Delphi的强大功能，更谈不上使用这些功能了。(写到这里，编辑惶恐的举起了手，怎么可能呢？)Delphi和Visual Basic不同，Delphi完全建立在面向对象结构上,这不仅影响到VCL的结构，而且影响到使用Delphi开发的每一个程序。 在本文中，我不想涉及到面向对象编程（OOP
2007-06-05 04:10:00
1008
1
原创 Delphi 源程序格式书写规范
Delphi 源程序格式书写规范1.规范简介 本规范主要规定Delphi源程序在书写过程中所应遵循的规则及注意事项。编写该规范的目的是使公司软件开发人员的源代码书写习惯保持一致。这样做可以使每一个组员都可以理解其它组员的代码，以便于源代码的二次开发记忆系统的维护。 2.一般格式规范 2.1缩进 缩进就是在当源程序的级改变时为增加可读性而露出的两个空格。缩进的规则为每一级缩进两个空格。不准许使用
2007-06-05 04:06:00
726
1
原创 Delphi7中使用低版本D6D5的控件
其实，我们在原来版本如D5、D6中使用的控件如Quickrep,FastNet等，在D7中仍然是保留的。只是Delphi没有将他们默认的安装到组件面版中来。这些控件包全部保存在Delphi目录的bin下，文件扩展名为.bpl（共将近60个）。安装这些包的方法很简单，只需点击菜单"component---->Install Packages..."，然后使用"ADD"选择需要的包就可以了。下面就
2007-06-05 04:04:00
876
原创 支持XP下托盘栏气球提示的托盘单元
unit tray;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Registry,ShellAPI, ComCtrls, StdCtrls, Buttons, Menus, ExtCtrls;const ICON_ID=3; NIF
2007-06-05 04:00:00
505
原创 fastreport中输出人民币大写(原作者0769.KONG)
begin strNum := [JE]; S1 := 零壹贰叁肆伍陆柒捌玖; S2 := 元拾佰仟万拾佰仟亿拾佰仟; if Pos(., strNum) > 0 then begin strZS := Copy(strNum, 1, Pos(., strNum)-1); strXS := Copy(strNum, Pos(., strNum)+1, 10
2007-06-05 00:30:00
1814
转载 通过字符串，类的引用，创建窗体
unit ShowFormClass;interfaceuses SysUtils, Classes,Dialogs, Forms;type TShowFormClass = class(TComponent) private { Private declarations } //保存要创建的窗体的类名 FFrmName:string;
2007-06-04 22:33:00
676
转载 递归清空窗体上 所有文本框，下拉框中的文本
//函数单元。procedure TFormCYBase.ClearText(AControl:TWinControl);var I: Integer;begin for I := 0 to AControl.ControlCount - 1 do // Iterate begin //需清空处理控件 if AControl.Controls[i] is TCustomEd
2007-06-04 22:29:00
671
转载 使用HOOK随心监视Windows
使用HOOK随心监视Windows 每个程序都有自己的生存空间，在Windows系统中你可以在任何时候让你的程序执行一些操作，还可以触发消息，触发的消息分为三种，一是操作你程序的界面，onClick，onMouseMove等等，另外一个可以使用Windows的消息机制来捕获一些系统消息，但是如果你想在任何时候监控任何程序的情况那可能你就会选择HOOK来实现了，虽然还有其他方法，但不得不承认，H
2007-06-04 22:16:00
1049
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人