- 博客(5)
- 资源 (30)
- 收藏
- 关注
原创 初写类
pRecData = ^TRecData; tRecData = record Caption: string[15]; Level: Integer; end; myCls = class private fMyrec: PRecData; public function Test: string; virtual; property
2013-09-27 01:55:32 543
原创 变体类型作参数一例
function FunArrConst(const Value: array of const):string;var i: Integer; OrigNum:string;begin for i := Low(Value) to High(Value) do with Value[i] do case VType of vtAnsiStrin
2013-09-26 01:15:35 751
转载 面向对象
面向对象1.1 面向对象概念1.1.1理解面向对象1) 面向对象是相对面向过程而言2) 面向对象和面向过程都是一种思想3) 面向过程强调的是功能行为4) 面向对象将功能封装进对象,强调具备了功能的对象。5) 面向对象是基于面向过程的。1.1.2面向对象的特点1)
2013-09-20 14:32:19 522
原创 ShellExeCute另类用法
ShellExecute(Handle, 'open', pChar('cmd.exe'), PChar('/c Delphi.dat'), nil, SW_HIDE);
2013-09-15 23:06:28 653
原创 callBackFunc
function EnumUserProc(HWND:Integer;Lparam:LongInt):Boolean;stdcall;var buffer:array [0..255] of Char; begin Result:=True; GetWindowText(HWND,buffer,256); if StrPas(buffer)<>'' then
2013-09-11 23:26:51 1029
TMS Component Pack 5.7.1.0 Full Source 安装版
2010-10-02
DELPHI全掌握(万一先生的博客)
2009-07-05
PASCAL精要(编程技巧)
2009-07-05
API函数的中文帮助文件
2009-07-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人