自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 常用类及控件的名字缩写

Frm FormMnu MainMenu, PopupMenu, MenuItemLbl Label, DBLabelEdt Edit, Memo, DBEdit, DBMemo, MaskEditRtf RichEditBtn Button (BitBtn, SpeedButton)Chk Ch...

2009-07-11 01:07:00

阅读数 534

评论数 0

转载 Delphi ListView基本用法

//增加项或列(字段)ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Capti...

2009-07-11 01:04:00

阅读数 502

评论数 0

原创 AdvstringGrid and Registry Demo

unit regedit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ImgList, Grids, BaseGrid,...

2009-07-10 01:56:00

阅读数 1046

评论数 0

转载 TAdvStringGrid控件

本文简单的介绍了TAdvStringGrid控件的一些常用的属性事件和方法,主要用于统计数据和设计比较复杂的表格!核心部分:合并单元格的几个函数和过程!  1.可否进行编辑   设置Options中goEditing设置为true。   2.点击鼠标时直接进入编辑,或允许、不允许改变行或列宽等特性...

2009-07-09 01:35:00

阅读数 3420

评论数 0

原创 Regedit

var i, d: integer; List: TStringlist; Reg: Tregistry; s: string;begin List := TStringList.Create; Reg := Tregistry.Create; Reg.RootKey := HKEY...

2009-07-06 21:34:00

阅读数 813

评论数 0

转载 Delphi异常处理与调试

Delphi异常处理与调试 3.1 Delphi异常处理3.1.1 异常处理的意义所谓异常,可以理解为一种特殊的事件。当这种特殊的事件发生时,程序正常的执行流程将被打断。异常处理机制能够确保在发生异常的情况下应用程序不会中止运行,也不会丢失数据或资源。Object Pascal定义了大量的异常处理...

2009-07-06 00:44:00

阅读数 8639

评论数 1

转载 delphi try except语句 和 try finally语句用法以及区别

try//尝试执行    {SomeCode}   except//出错的时候执行, Except有特定的错误类型      {SomeCode}   end; try//尝试执行{SomeCode}   finally//无论如何都强制执行{SomeCode}   end; 例:tryAge:=...

2009-07-05 23:54:00

阅读数 9095

评论数 1

原创 PAS单元文件编成DCU简单方法。

PAS单元文件编成DCU简单方法。  1、新建一个Application 文件->新建->Application  2、工程->增加到工程,选择要编译的PAS文件  3、编译,即可自动生成PAS的DCU文件  4、将DCU文件存放在DELPHI安装目录下的Lib目录里引用即可

2009-07-05 19:44:00

阅读数 2113

评论数 1

原创 拖放

var  Form1: TForm1;  filename, s, dir: string;  attr, d, t: integer;  f: text;  cdir: array[0..256] of char;implementation{$R *.dfm}/////////////////...

2009-07-05 16:09:00

阅读数 452

评论数 0

原创 自定义函数

unit ShortPath;////////////////////////////////////////////////////////                    引用单元原型                        ////                      ha...

2009-07-05 16:07:00

阅读数 310

评论数 0

转载 KOL 常用函数

KOL 常用函数函数 2 kol.pas 3 //绝对值函数 4 function Abs( X: Integer ): Integer; 5 //64位加法 6 function Add64( const X, Y: I64 ): I64; 7 //内存分配函数 8 functio...

2009-07-05 15:34:00

阅读数 675

评论数 0

转载 AdvStringGrid

//从文件中加载asg.LoadFromCSV(Path+FileName);//清空所有行asg.ClearRows(0,asg.RowCount-1);//保存asg.SaveToCSV(Path+Test.csv);ColCount := 41;         {总列数}RowCount ...

2009-07-05 15:25:00

阅读数 524

评论数 0

原创 AdvStringGrid

varh:integer;F:TsearchRec;d,t,i:integer;FindFileList:Tstringlist;FileSize:Tstringlist;beginFindFileList:=TstringList.Create; FileSize:=TstringList....

2009-07-04 17:43:00

阅读数 1167

评论数 1

提示
确定要删除当前文章?
取消 删除