Delphi程序设计之--经验技巧

原创 2003年07月14日 17:55:00

这些日子太忙了,今天把剩下的部分贴完,希望对大家有用。看过前一篇的都知道此文的作者和出处,我就不详细说了。

{ No. 16 }

//对于记录类型Record的分析。

实例:

type
 TBaseRec = record
   rStr: Integer;
   rStr2: String;
   rStr3: String;
 end;

 TStrRec = record
   rStr: Integer;
   rStr2: String;
   rStr3: String;
   rStr4: String;
 end;

procedure TForm1.Button3Click(Sender: TObject);
var
 vRec1: TStrRec;
 vBaseRec: TBaseRec;
begin
 vRec1.rStr := 1;
 vRec1.rStr2 := '123123';
 vRec1.rStr3 := '1';
 vRec1.rStr4 := '1';

 vBaseRec := TBaseRec(Pointer(@vRec1)^);

 ShowMessage(IntToStr(vBaseRec.rStr) + '_' + vBaseRec.rStr2 + '_' + vBaseRec.rStr3);
//
end;

{说明:
1、记录类型互相转换时,必须保证基础Record类型,数据大小Sizeof应小于或等于扩展类型。保证转换后的记录类型对象的数据访问合法正确。
2、在Delphi中,使用记录类型互相转换最为平凡的就是在消息Record的实现上了。在Delphi中定义了若干于TMessage可同时描述消息接受信息的Record,如:
 TWMKey = packed record
   Msg: Cardinal;
   CharCode: Word;
   Unused: Word;
   KeyData: Longint;
   Result: Longint;
 end;
 当需要接受KeyDown和KeyUp的消息时,我们即可以使用TMessage也可以使用TWMKey作为消息接收的参数类型。因为Delphi为我们提供了若干便利的消息类型,所以我们在使用消息处理问世时就不会象VC中那样繁琐和易错了。
3、记录类型的使用还提供了一个不同语言间数据信息封装访问的途径。在不同语言间使用记录类型和记录类型指针时,应注意内部定义的变量的类型匹配问题。

记录类型的本质测试研究:
更改上面例子的实现部分,测试:
procedure TForm1.Button3Click(Sender: TObject);
var
 vRec1: TStrRec;
 rStr: Integer;
 rStr2: String;
 rStr3: String;
 vpt: Integer;
begin
 vRec1.rStr := 1;
 vRec1.rStr2 := '123123';
 vRec1.rStr3 := '1';
 vRec1.rStr4 := '1';

 vpt := Integer(@vRec1);
 rStr := Integer(Pointer(vpt)^);
 vPt := vPt + Sizeof(rStr);
 rStr2 := String(Pointer(vpt)^);
 vPt := vPt + Sizeof(rStr2);
 rStr3 := String(Pointer(vpt)^);

 ShowMessage(IntToStr(rStr) + '_' + rStr2 + '_' + rStr3);
end;
提示信息于开始例子相同,则推测:
1、Record类型中定义的数据是在一个连续空间中保存的
2、当定义函数时,如果考虑到函数处理的信息可能在后续版本中,需要扩充则可以使用记录变量的方式传递参数。当扩充函数时只需将记录变量根据此记录的版本号转换为对应的记录类型变量进行访问即可。具体实例可以参考Windows API函数的版本升级及扩展情况。
}

2003-6-17 19:52:00   
 2003-6-17 22:22:02    事件类型属性,通过属性赋值函数操作

{ No. 17 }

{在TypInfo单元中,有若干函数可以让我们操作Dephi管理的类的VMT。通过,属性名称和对象VTM直接访问或改变属性值。
公共的属性访问函数:GetPropValue;公共的属性设置函数:SetPropValue。其中,对事件属性信息的读取可以使用GetPropValue,但是却不能通过SetPropValue给事件属性赋值。
解决方案:使用SetMethodProp给控件属性赋值。procedure SetMethodProp(Instance: TObject; const PropName: string; const Value: TMethod); overload;其中,TMethod 用以描述操作函数。
 TMethod = record
   Code,  //函数地址;可以通过类函数MethodAddress,取得函数地址。其中,只有声明在Published段的函数才能通过MethodAddress访问。
   Data: Pointer; //对象地址
 end;
}

//**************** 正常使用
type
 TMyForm = class(TForm)
  ...
 private
   FMyText: String;
 published
   procedure MyClick(Sender: TObject);
 end;
 
//窗体中,按钮事件;实现动态分配另一个按钮的事件的方法
procedure TMyForm.Button1OnClick(Sender: TObject);
var
 vMethod: TMethod;
begin
 FMyText := 'Hello Joy!';
 vMethod.Code := Self.MethodAddress('MyClick');      //************ Code 1
 vMethod.Data := Self;                               //************ Code 2
 SetMethodProp(Button2, 'OnClick', vMethod);
end;

procedure TMyForm.MyClick(Sender: TObject);
begin
  ShowMessage('Ok!');                                //************ Show 1    
  ShowMessage(Self.FMyText);            //************ Show 2      
end;
 
//**************** 修改 一
//将[Code 1]和[Code 2]处的Self变更为TMyForm。则[Show 1]显示正常,[Show 2]显示不正常。
//说明:当类的函数被执行时,寄存器eax保存的是当前类的地址。所以,TMethod.Data中保存的应该是将来执行TMethod.Code函数时,赋给eax的值,即类对象指针。
//又因为[Show 1]中,不需要eax中类对象指针,所以可以正常执行。

//**************** 修改 二
//函数地址读取部分
procedure TMyForm.Button1OnClick(Sender: TObject);
var
 vMethod: TMethod;
 vEvent: TNotifyEvent;
begin
 FMyText := 'Hello Joy!';
 vEvent := MyClick;
 vMethod.Code := @vEvent;                            //************ Code 1
 vMethod.Data := Self;                               //************ Code 2
 SetMethodProp(Button2, 'OnClick', vMethod);
end;
//其中,MyClick可以定义为私有函数。
//说明:vMethod只是要记录一个类的函数地址和类对象的地址。MethodAddress函数也只是通过函数名称进行函数地址的读取而已。

 
 2003-6-18 12:48:38    不通过汇编访问 [VMT]

VMT:Virtual Method Table

//访问VMT信息
e.g.
procedure TForm1.Button1Click(Sender: TObject);
var
 vpt: Pointer;
 vMethod: TMethod;
begin
 vMethod.Code := TForm.MethodAddress('MyClick');
 vMethod.Data := Self;
 if vMethod.Code = nil then ShowMessage('Error!');
 vPt := Pointer(TListBox);  
 Integer(vPt) := Integer(vPt) + vmtTypeInfo; //在Delphi帮助中说明,根据偏移量可以取得ClassInfo。或者可以参考,TObject.ClassInfo的定义。
 SetMethodProp(ListBox2, GetPropInfo(pTypeInfo(vPt^), 'OnClick'), vMethod);
end;

//其中,类的类到底如何提取?
 function TObject.ClassType: TClass;
 begin
     mov eax, [eax]
 end;

//上面的语句可以翻译成
 function TObject.ClassType: TClass;
 begin  
    Result := TClass(Pointer(Self)^);
 end;

//所以上面的例子也可以改为
procedure TForm1.Button1Click(Sender: TObject);
var
 vpt: Pointer;
 vMethod: TMethod;
begin
 vMethod.Code := TForm.MethodAddress('MyClick');
 vMethod.Data := Self;
 if vMethod.Code = nil then ShowMessage('Error!');
 vPt := Pointer(Pointer(ListBox2)^);  //取得ClassType的指针
 Integer(vPt) := Integer(vPt) + vmtTypeInfo;
 SetMethodProp(ListBox2, GetPropInfo(pTypeInfo(vPt^), 'OnClick'), vMethod);
end;
{仿照上面的例子,我们可以访问所有VMT入口地址,并取得相应的信息}

 
 2003-6-21 11:24:32    使用汇编实现远程函数调用

{ No. 19 }

//如何通过指针,调用类函数中定义的函数(如下面的:MyFar)?
//如果我们只传递函数指针,然后调用函数的话,我们会发现,在MyFar中不能访问当前类对象的变量FMyText。如果嵌入一段汇编,将当前位置压入栈,然后再调用此函数,则就可以象类函数一样,在其中访问类的变量了。
e.g.
type
 pMyRec = ^TMyRec;
 TMyRec = record
   rStr: String;
   rInt: Integer;
 end;

procedure MyProc(APro: Pointer);
var
 CallerBp: Cardinal;
 MyRec: TMyRec;
 vPt: Pointer;
begin
 MyRec.rStr := 'MyRec.rStr';
 MyRec.rInt := 'MyRec.rInt';
 vPt := Pointer(@MyRec);
 asm
   mov eax, [ebp]
   mov CallerBp, eax
   mov eax, vpt
   Push CallerBp
 end;
end;

procedure TMyTemp.SetText(aText: String);
 procedure MyFar(aRec: TMyRec);
 begin
    ShowMessage(Format('%s_%sd_%s', [Self.FmyText, aRec.rStr, aRec.rInt]);
 end;
begin
 Self.FMyText := 'JoyYuan';
 MyProc(Addr(MyFar));
end;

{说明:具体例子可以参考:Grids单元中,TSparsePointerArray.ForAll的实现。
}

 
 2003-6-21 11:47:21    类函数地址

{ No. 20 }

测试结果列举:也是测试方法和测试思维经历的过程。

结果一:Button1.CanFocus与Button2.CanFocus的地址相同
结果二:Button1.CanFocus与Form1.CanFocus的地址相同,也等同于ListBox1.CanFocus
结果三:当在TForm1窗体类中,重载Form1.CanFocus后,Button1.CanFocus与Form1.CanFocus的地址不相同
 结论:如果没有重载父类的虚函数,则访问时,直接得到并访问父类的函数。所以,TButton, TListBox, TForm默认都访问的是TWinControl的CanFocus。所以函数地址相同。

结果四:定义事件类型
Type
 TMyEvent1 = Function(): Boolean of Object;
 TMyEvent2 = function(): Boolean;
 得结果:Sizeof(TMyEvent1) = 8;  Sizeof(TMyEven2) = 4;
 结论:类函数类型,保存的室两个指针的内容,见TMethod中,Code 和 Data;既一个函数指针,一个对象指针。

验证测试例子一:
var
 vTestEvent: TNotifyEvent;
begin
 Pointer((@@vTestEvent)^) := @TForm1.MyClick; //或者通过:TForm1.MethodAddress('MyClick') 方式取函数地址
 Pointer(Pointer(Integer(@@vTestEvent) + 4)^) := Pointer(Self);
 vTestEvent(nil); //效果和执行 Self.MyClick一样。
end;
验证测试例子二:
var
 vMethod: TMethod;
begin
 vMethod.Code := TForm1.MethodAddress('MyClick');
 vMethod.Data := Self;
 TNotifyEvent(vMethod)(nil);//效果和执行 Self.MyClick一样。
end;

 

文章作者:大富翁的joyyuan97 

出处:http://www.delphibbs.com/keylife/iblog_show.asp?xid=1134

Delphi程序设计之--经验技巧

http://www.7880.com/Info/Article-20ce7000.html//对于记录类型Record的分析。实例:type TBaseRec = record   rStr: In...
  • lwjghhh
  • lwjghhh
  • 2005年06月02日 16:29
  • 706

088_《Delphi开发经验技巧宝典》

本书介绍了1021个delphi开发经验技巧,覆盖了用户程序开发中的各种实际需求。全书共分29章,分别是开发环境、语言基础、程序算法、函数应用、字符与字符串处理技术、日期和时间、数据处理技术、窗体与界...
  • shuaihj
  • shuaihj
  • 2010年12月18日 14:58
  • 1503

转载——读《技巧:如何用一年时间获得十年的经验》

转载自:http://www.codepub.cn/2016/12/30/Read-skills-how-to-get-a-decade-of-experience-in-a-year/ ...
  • hpp1314520
  • hpp1314520
  • 2017年06月16日 11:21
  • 585

程序设计经验谈

程序设计经验谈     不知不觉做软件已经做了十年,有成功的喜悦,也有失败的痛苦,但总不敢称自己是高手,因为和我心目中真正的高手们比起来,还差的太远。世界上并没有成为高手的快捷方式,但一些基本原则是可...
  • kingmax54212008
  • kingmax54212008
  • 2008年06月03日 21:27
  • 593

Delphi经验技巧集锦

Delphi经验技巧集锦 ---- 一.为列表框添光彩 ---- 为了改变Listbox和Combobox两个控件的单调风格, 我想在它们的每一项前面加上个图标。从表面上看好像不大可能啦。就在走投无路...
  • sweetch
  • sweetch
  • 2004年12月18日 18:51
  • 809

delphi小技巧总汇

◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt...
  • hlms
  • hlms
  • 2005年04月20日 12:27
  • 1334

css技巧与经验

之前写了几个项目,css也遇到了几个问题,在这里,我还是希望回顾和思考我以前遇到的问题。一下是我的总结          1.div高度崩塌问题高度无法自适应,即当div内部元素使用浮动时,父类div...
  • sinat_24713805
  • sinat_24713805
  • 2017年06月26日 17:36
  • 118

noip注意事项,训练时经验与技巧

1:读题、读题、再读题!!!觉得对了,也要再啃几遍题! 2:如果做题比赛时自己有一些类似于贪心的思路,或者说是一些猜想,直觉但是并不知道如何证明的情况,然而计算机是检验直觉的最好的方法,可以通过输出...
  • zhhx2001
  • zhhx2001
  • 2016年09月03日 18:28
  • 521

CSDN使用小技巧

1.如何在CSDN添加友情链接
  • u013045749
  • u013045749
  • 2014年08月26日 23:03
  • 515

程序设计竞赛常用技巧精选

对《挑战程序设计竞赛》的一个记录第三章 出类拔萃——中级篇3.2 常用技巧精选(1)尺取法poj 3061 Subsequence 给定长度为n的数列整数a0,a1,…an-1以及证书S。求出综合不...
  • zhoufenqin
  • zhoufenqin
  • 2015年10月10日 13:39
  • 1383
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi程序设计之--经验技巧
举报原因:
原因补充:

(最多只允许输入30个字)