TObject

System.Assert 断言

var List: TStringList; procedure TForm1.FormCreate(Sender: TObject); begin // Assert(Assigned
·2015-10-31 10:09

打开"我的电脑"等特殊文件夹

uses ShellAPI; //打开 C 盘 procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute
·2015-10-31 10:09

如何打开记事本并显示指定内容 - 回复 "苦苦苦" 的问题

www.cnblogs.com/del/archive/2009/10/27/1590975.html#1696167 procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:09

JSON 之 SuperObject(7): 可以省略的双引号

即如此, 下面写法都可以: uses SuperObject; procedure TForm1.Button1Click(Sender: TObject); var jo1,jo2
·2015-10-31 10:06

Delphi 2010 新增功能之: 手势编程[4] - 关于 OnGesture 事件过程的参数

EventInfo.GestureID, 还有 EventInfo.Location 给出了手势动作的起点坐标, 测试代码: procedure TForm1.FormGesture(Sender: TObject
·2015-10-31 10:05

使用 InputBox、InputQuery 的启发

通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str: string; begin
·2015-10-31 10:01

学习 SQL 语句 - Select(8): 分组条件

代码文件: //分组条件可以是 Where procedure TForm1.Button1Click(Sender: TObject); begin with ADODataSet1
·2015-10-31 10:00

学习 SQL 语句 - Select(9): 其他

//只要前五条记录 procedure TForm1.Button1Click(Sender: TObject); begin with ADODataSet1 do begin
·2015-10-31 10:00

Yesterday、Today、Tomorrow - 昨天、今天、明天

Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject
·2015-10-31 10:59

ParamCount、ParamStr

gt; Options -> Debugger -> Parameters 中输入模拟参数, 多个参数可用空格隔开 procedure TForm1.FormCreate(Sender: TObject
·2015-10-31 10:56

给 Edit 两个可选值 - 回复 "delphi学习中" 的问题

www.cnblogs.com/del/archive/2009/03/05/1345752.html#1468654 procedure TForm1.Edit1Click(Sender: TObject
·2015-10-31 10:56

如何比较两个二维数组是否相等 - 回复 "阿拉丁" 的问题

{对比静态数组} procedure TForm1.Button1Click(Sender: TObject); var arr1: array[0..3] of AnsiChar; arr2
·2015-10-31 10:56

创建 GUID

uses ComObj, ActiveX; procedure TForm1.Button1Click(Sender: TObject); var Guid: TGUID;
·2015-10-31 10:51

关于子类与父类的转换, 还有多态的说明 - 回复 "靳承柱" 和 "志成" 的问题

/archive/2008/08/22/1002959.html#1294593 //关于父类与子类的类型转换: procedure TForm1.FormCreate(Sender: TObject
·2015-10-31 10:39

判断字符串中子串个数的函数

Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject
·2015-10-31 10:36

使用剪切板[1]: AsText、SetTextBuf、GetTextBuf

TClipboard 定义在 Clipbrd 单元, 使用前先要 uses Clipbrd; uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:33

学习 TList 类的实现[8]

TMyList = class(TObject) private ... function GetItems(Index: Integ
·2015-10-31 10:32

学习 TList 类的实现[4]

首先, 这个类中应该包括前面提到的那个 Pointer 数组(TPointerList)的指针(PPointerList): TMyList = class(TObject) FList:
·2015-10-31 10:31

枚举当前所有窗口

回复 maxcool 的问题: {要有个 Memo 接受数据} procedure TForm1.Button1Click(Sender: TObject); var h: HWnd;
·2015-10-31 10:29

Application.ProcessMessages

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to MaxInt do
·2015-10-31 10:28

WinAPI: GetKeyboardType - 获取键盘的类型信息

nTypeFlag: Integer {0:键盘类型; 1:键盘子类型; 2:功能键数量} ): Integer; //举例: procedure TForm1.FormCreate(Sender: TObject
·2015-10-31 10:27

初学 Delphi 嵌入汇编[14] - 常量与变量在汇编中的一个区别

const a = 11; b = 5; asm mov eax, a-b end; //测试 procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:24

参数默认值

:Integer=2): Integer; begin Result := a + b + c; end; procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:23

覆盖虚方法

Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject
·2015-10-31 10:22

抽象类

Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject
·2015-10-31 10:22

方法重载

Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject
·2015-10-31 10:22

类方法调用

Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject
·2015-10-31 10:22

长字串与短字串

procedure TForm1.Button1Click(Sender: TObject); var s1: ShortString; //为兼容老版本而存在 s2: string
·2015-10-31 10:21

长字串与宽字串

procedure TForm1.Button1Click(Sender: TObject); var s1: AnsiString; //单字节储存 s2: WideString;
·2015-10-31 10:21

注册系统级热键

Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject
·2015-10-31 10:21

获取程序所在目录

procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(ExtractFilePath(ParamStr(0)))
·2015-10-31 10:21

指针的运算

//指针的运算仅对 PChar 类型 procedure TForm1.Button1Click(Sender: TObject); var p: PChar; begin p :
·2015-10-31 10:21

打开网页

uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin //用IE打开 ShellExecute(Handle
·2015-10-31 10:20

goto 语句

procedure TForm1.Button1Click(Sender: TObject); var x: Integer; label n1,n2,n3,4; //goto的标签可以是标识符
·2015-10-31 10:20

@ 与 ^ 运算符

//例1： procedure TForm1.Button1Click(Sender: TObject); var str: string; p: Pointer; begin
·2015-10-31 10:20

时间的运算

procedure TForm1.Button1Click(Sender: TObject); var i: Real; begin i := StrToDate('2008-1-1
·2015-10-31 10:20

Edit 的使用

//让 Edit 只接受数字 //方法1： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin
·2015-10-31 10:19

Memo 的当前行、当前列与当前字符

procedure TForm1.Memo1Click(Sender: TObject); begin Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X
·2015-10-31 10:19

测试代码

Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject
·2015-10-31 10:18

Delphi- 调用存储过程的方法

　　Delphi控件里拉一个TADOStoredProc，配置好相关链系，具体的操作列子如下： 1 procedure TForm1.btnFirstClick(Sender: TObject);
·2015-10-31 10:57

Delphi中TList类应用

procedure TForm1.Button1Click(Sender: TObject); const //黑桃,红桃,方块,草花
·2015-10-31 10:32

Delphi ADOQuery Demo

procedure TForm2.FormCreate(Sender: TObject);const { Connection string } ConnString = 'Provider=SQLOLEDB
·2015-10-31 10:28

WinForm——把一个窗体的关闭按钮去掉

Delphi 1 procedure TForm1.FormCreate(Sender: TObject); 2 begin
·2015-10-31 10:40

在运行程序时传入参数（Delphi）

procedure TForm1.FormShow(Sender: TObject);var i:Integer;begin //当前程序的完整路径（包括文件名） lbl1.Caption:
·2015-10-31 10:36

StringGrid使用全书2

procedure TForm1.Button1Click(Sender: TObject);varSel : TGridRect;beginSel := StringGrid1.Selection;DeleteRow
·2015-10-31 10:31

Delphi TdxBarManager通过代码生成菜单

    procedure TForm6.btn1Click(Sender: TObject);var  ABar:TdxBar;  ABarItem:TdxBarItem
·2015-10-31 10:22

Delphi TXLSReadWriteII2 导出Excel

  TXLSReadWriteII2版本导出Excel文件：   procedure TForm1.N1Click(Sender: TObject); var  
·2015-10-31 10:20

Delphi TXLSReadWriteII导出Excel

Excle (有点复杂，可以自己简化一下，直接从项目中抓取的)   procedure TformSubReport.DataToExcel(_Item: Integer; _Obj: TObject
·2015-10-31 10:20

怎样在delphi中实现控件的拖拽

下面这2种方法都能实现对控件和窗体的拖拽     方法1 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton
·2015-10-31 10:38

SendMessage 启动屏幕保护程序

procedure TForm1.Button1Click(Sender: TObject);  var     handle:integer;
·2015-10-31 10:36
上一页 13 14 15 16 17 18 19 20 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他