自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 初写类

pRecData = ^TRecData; tRecData = record Caption: string[15]; Level: Integer; end; myCls = class private fMyrec: PRecData; publi...

2013-09-27 01:55:32

阅读数 467

评论数 0

原创 变体类型作参数一例

function FunArrConst(const Value: array of const):string; var i: Integer; OrigNum:string; begin for i := Low(Value) to High(Value) do with ...

2013-09-26 01:15:35

阅读数 635

评论数 0

转载 面向对象

面向对象 1.1 面向对象概念 1.1.1理解面向对象 1)     面向对象是相对面向过程而言 2)     面向对象和面向过程都是一种思想 3)     面向过程 强调的是功能行为 4)     面向对象 将功能封装进对象,强调具备了功能的对象。...

2013-09-20 14:32:19

阅读数 460

评论数 0

原创 ShellExeCute另类用法

ShellExecute(Handle, 'open', pChar('cmd.exe'), PChar('/c Delphi.dat'), nil, SW_HIDE);

2013-09-15 23:06:28

阅读数 547

评论数 0

原创 callBackFunc

function EnumUserProc(HWND:Integer;Lparam:LongInt):Boolean;stdcall; var buffer:array [0..255] of Char; begin Result:=True; GetWindowText(...

2013-09-11 23:26:51

阅读数 886

评论数 0

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