Delphi中接口、类、与继承的问题
我目前遇到的问题如下：
Delphi(Pascal) code:
IA = interface
function GetA: Integer;
end;
TB = class(TInterfacedObject, IA)
public
...省略其他N个函数
function GetA: Integer;
end;
TC = class(TB)
public
...
function GetA: Integer;
private
end;
以上是接口A和类B、类C的定义，其中类C从类B中继承，并将GetA函数重写。
现在的问题是，我能不能用接口来调用类C的GetA函数(如下方法调用)？
Delphi(Pascal) code:
var
ITemp: IA;
i: Integer;
begin
ITemp:= TC.Create;
i := IA.GetA;
ITemp:= nil;
ITemp变量申明为接口，我发现GetA其实是在执行TB的代码，而没有执行TC的代码。
如果将ITemp申明为TC，那当然容易实现。但关键是我现在有很多TC，具体执行哪个，也不确定的。
请问有什么方法可以简便的调用到TC的GetA函数？
var ITemp: TC;
i: Integer;
begin
ITemp:= TC.Create;
i := IA.GetA;
ITemp:= nil;
end;
多谢楼上的朋友，但是这个办法我也知道。关键，类似TC一样，从TB类继承下来的很多。我懒，所以想找一个统一的代码。不知道有没有不用改就可以调用的。
比如，存在TD，也是从TB继承的类，那我调用的时候，就又得把ITemp申明成TD了。那再多，不是又得改？
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
