Delphi - 必须的一致.

转载于 2011-06-17 00:41:00 发布 · 69 阅读

本文通过一个具体的示例，探讨了在Delphi中处理接口转换时容易忽视的问题，并详细解释了为何在从接口列表中取出对象并进行转换时，必须遵循正确的类型转换步骤。

大家好,我是HuangJacky,技术交流.
这个是在工作发现的一个问题,而且是很久的问题了.当时已经写成文章了.但是(往往时常都有这个但是)系统挂了,文章还没有发出来.
好,赶紧发出来.

首先还原下问题:(这个插件居然没有Pascal)

 
//首先定义具有继承关系的接口 
  IBase = interface 
    procedure TalkBase; 
  end; 
   
  IDerive = interface(IBase) 
    procedure TalkDerive; 
  end; 
  //实现的类 
  TBase = class(TInterfacedObject, IBase) 
    procedure TalkBase; 
  end; 
   
  TDerive = class(TBase, IDerive) 
  private 
    FTest: Integer; 
  public 
    constructor Create(); 
    procedure TalkBase; 
    procedure TalkDerive; 
  end; 
  

类得实现.

 
{ TDerive } 
   
constructor TDerive.Create; 
begin 
  FTest:= 55; 
end; 
   
procedure TDerive.TalkBase; 
begin 
  ShowMessage('Derive say base'); 
end; 
   
procedure TDerive.TalkDerive; 
begin 
  ShowMessage('Derive'); 
end; 
   
{ TBase } 
   
procedure TBase.TalkBase; 
begin 
  ShowMessage('Base'); 
end; 
  

现在我们有一个列表,列表里面可以装这些接口的:

 
procedure TForm2.Add(Obj: IBase); 
begin 
  FList.Add(Pointer(Obj)) 
end; 
  

是吧,这样列表里面都是放的接口.我们来看看使用的代码:

 
procedure TForm2.btnTestClick(Sender: TObject); 
begin 
  //加两个 
  A:= TDerive.Create; 
  Add(A); 
  A:= TDerive.Create; 
  Add(A); 
  //使用 
  A:= TDerive(FList[0]); 
  ShowMessage(IntToStr(A.FTest));//我们预期是55 
end; 
  

可是结果是怎么样的呢?

为什么是这么多呢?
后来我发现我们加进去的是接口IBase而我们使用的时候是直接转化TDerive.中间少了一步转换pointer->IBase.好的代码改一下:

 
//使用 
  A:= TDerive(IBase(FList[0])); 
  ShowMessage(IntToStr(A.FTest));//我们预期是55 
  

结果: .正确了.
这里说明了什么?TList里面我们加进去的是什么,使用的时候就要先转换成加进去时候的类型后才能再转换成其他类型.
原因呢?
这个是因为Delphi中对象的内存组织决定的.
这个我明天说.现在得睡觉了