delphi
u010219209
这个作者很懒,什么都没留下…
展开
-
Delphi类使用示例(有详细注释)
unit UnitRegistry;interfaceuses Registry,Windows,Messages,Dialogs; {公共函数申明,直接通过单元名调用} procedure hello(str:string);type {类定义开始} OpRegistry=class private myRegistry:原创 2015-03-10 17:21:30 · 1380 阅读 · 0 评论 -
Delphi TXLSReadWriteII 导出EXCEL
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,XLSReadWriteII,XLSFonts,CellFormats,BIFFRecsII;type TForm1 = class(TFor原创 2016-02-27 15:00:51 · 3751 阅读 · 0 评论 -
delphi学习问题集锦
1.label标签拖动后显示不全:设置label的autosize为true,然后字体设定为宋体 或者拉动标签边框后,将label的autosize设定为false原创 2015-03-09 18:53:38 · 640 阅读 · 0 评论 -
delphi 日志单元
1.记录日志unit uText;interfaceuses SysUtils;procedure WriteLog(strlog:String);implementationvarLogText: Text;FileName: string = 'C:\log.txt';procedure WriteLog(strlog:string); begin原创 2015-08-04 18:53:13 · 1147 阅读 · 0 评论 -
Delphi 属性多参数使用
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,FuncBaseClass, StdCtrls;type TForm1 = class(TForm) Button1: TButton; pro原创 2016-07-27 10:00:15 · 1096 阅读 · 0 评论 -
TSrings 使用
ps:TStrings;ss:TStringlist:ps:=ss;1.同一个dll 里面 ps 相当于ss 的引用,修改了ps,相当于修改了ss2.不同的dll 调用函数想实现这个引用的效果 要使用var变量原创 2016-03-29 16:27:34 · 510 阅读 · 0 评论 -
关掉D6 CPU调试窗口
1. HKEY_CURRENT_USER\Software\Borland\Delphi\6.0\Debugging 下的ViewCPUOnException 修改为0 即可原创 2016-03-11 10:28:35 · 694 阅读 · 0 评论 -
Delphi 条件编译
1.有 {$Define DEBUG } 则输出world 否则输出hello{$Define DEBUG}procedure TForm1.btn1Click(Sender: TObject);var msg:string;begin msg:='hello' ; {$IFDEF DEBUG} msg:='world' ; {$ENDIF} ShowMessage原创 2016-01-14 12:25:44 · 697 阅读 · 0 评论 -
Delphi 函数嵌套 定义与调用
procedure TForm1.btn1Click(Sender: TObject);var str:string;procedure test();begin ShowMessage(str);end;begin str:='hello world'; test();end;原创 2015-11-20 14:48:43 · 1635 阅读 · 0 评论 -
delphi property 实例(包含数组属性)
unit Unit2;interfacetype TPerson=class(TObject)private FAge:Integer; FName:string; FDegree:array[0..3] of string; function getAge: Integer; procedure setAge(const Value: Inte原创 2015-11-19 10:08:43 · 3078 阅读 · 0 评论 -
Delphi dll定义与调用
1.dll定义library testdll;uses SysUtils, Classes;Function add (X,Y:integer ):integer;stdcall ;begin Result := X+Y;end ;{$R *.res}exports add ;beginend.2.静态调用dll 优点:可以通过dep原创 2015-08-26 09:44:49 · 579 阅读 · 0 评论 -
根据导出函数获取dll中定义的方法
//获取中间件包含的功能号unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; pro原创 2016-03-30 09:04:56 · 424 阅读 · 0 评论 -
Delphi 调试
1.选择要中断的行(光标置于该行即可)2.加入断点3. 设置断点条件原创 2016-01-26 20:37:35 · 460 阅读 · 0 评论 -
Delphi操作注册表
1.Delphi操作注册表是通过系统类TRegistry实现的,需要引用Registry2.注册表根键:在win7中注册表根键有五个,以下几个根键的数据类型为const LongWord,需引用Windows: HKEY_CLASSES_ROOT: HKEY_CURRENT_USER: HKEY_LOCAL_MACHINE原创 2015-03-12 12:26:13 · 738 阅读 · 0 评论 -
delphi5安装教程
1.如果直接安装Delphi5通常会出现以下错误2.最佳解决办法是虚拟光驱安装法:工具ISO制作工具,虚拟光驱软件(推荐DTLite)3.步骤:用虚拟光驱载入Delphi5的光盘映像文件(.iso)即可运行原创 2015-04-04 10:11:20 · 4116 阅读 · 0 评论 -
Delphi 按钮共享事件处理方法
1.其他按钮调用某个按钮事件,例如:procedure TForm1.btn1Click(Sender: TObject);begin ShowMessage('btn1事件处理');end;procedure TForm1.btn4Click(Sender: TObject);begin btn1Click(Sender);end;这样btn4 调用是btn1 处理方法原创 2015-08-09 13:29:19 · 1779 阅读 · 0 评论 -
Delphi 调用dll中的窗体
1. 定义窗体unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure b原创 2015-08-26 13:48:05 · 5216 阅读 · 1 评论 -
Delphi 修改注册表使程序开机启动
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry;type TForm1 = class(TForm) btnAddRun: TButton; edtFil原创 2015-08-25 18:24:42 · 930 阅读 · 0 评论 -
Delphi 窗体程序接受命令行参数
1.将自动生成的project代码做如下改造program Project1;uses Forms, SysUtils,{$R *.res}begin Application.Initialize; Application.CreateForm(TForm1, Form1); if (ParamCount >0)and SameText(ParamStr(1),原创 2015-08-27 10:20:05 · 3647 阅读 · 0 评论 -
Delphi 连接SQLserver
1.注意引用ADODB,Provider,DBClient 单元procedure TForm1.btn2Click(Sender: TObject);var AdoQuery :TADOQuery; pDataSetProvider: TDataSetProvider; pADOConn: TADOConnection; ds: TClientDataSet;原创 2015-08-28 12:13:43 · 2536 阅读 · 0 评论 -
Delphi 指针大全
Delphi 指针大全 http://blog.sina.com.cn/s/blog_6ec4dce00100mffi.html一、类型指针的定义。对于指向特定类型的指针,在C 中是这样定义的:int *ptr;char *ptr;与之等价的Object Pascal 是如何定义的呢?varptr : ^Integer;ptr : ^char;其实也就是符号的差别而已。Del转载 2015-08-27 16:56:36 · 1228 阅读 · 0 评论 -
Delphi 代码创建控件与事件动态绑定
procedure TForm1.btn3Click(Sender: TObject);var btn2:TButton;begin btn2:=TButton.Create(Self); btn2.Width:=100; btn2.Height:=50; btn2.Caption:='动态按钮'; btn2.Parent:=Self;end;原创 2015-08-21 17:15:42 · 6704 阅读 · 0 评论 -
Delphi 调试
Delphi调试转载 2015-09-18 09:12:49 · 421 阅读 · 0 评论