小弟也是初学的哈，把这类问题的个人处理方法跟大家探讨一下，
还请促各位大侠多多指教：
不知你有没有看过 OfficeVBA 这些东西的类型库？我把 AutoCAD 的类型库（应该说是
由类型库引入的接口文件）看了一下，
再做了一个简单的实验，如下：
//////////
// 这是接口定义单元
unit Unit2;
interface
type
///////////////////////////
// 单个 Sender 接口的声明, 只定义了一个属性。
ISender = interface
function Get_Name:widestring;safecall;
property Name: widestring read Get_Name;
end;
// 实现类。。
TSender = class(TInterfacedObject, ISender)
private
FName: widestring;
public
constructor Create(const nm : Widestring);
function Get_Name:widestring;safecall;
end;
////////////////////////////////
// sender 接口集合的声明， 这里就是一般的 Automation 服务器构造他们的
// 层次结构的接口的形式，
ISenders = interface
function Item(index: oleVariant):Isender;safecall;
function Add(NM: widestring):ISender;safecall;
// 属性 Count 表示 当前共有多少个 ISender
function Get_Count:OleVariant;safecall;
property Count: OleVariant read Get_Count;
end;
// 实现
TSenders = Class(TInterfacedObject, ISenders)
private
FSenders: array of ISender;
FCount: cardinal;
public
constructor Create;
function Item(index: oleVariant):ISender;safecall;
function Add(NM: widestring):ISender;safecall;
function Get_Count:OleVariant;safecall;
end;
///////////////////////////////////
// 一个包装它们的接口 。。
IServer = interface
function Get_Senders: ISenders;safecall;
property Senders: ISenders read Get_Senders;
end;
TServer = class(TInterfacedObject ,IServer)
private
FSenders: ISenders;
public
function Get_Senders: ISenders;safecall;
end;
implementation
{ TSender }
constructor TSender.Create(const nm: Widestring);
begin
FName := nm;
end;
function TSender.Get_Name: widestring;
begin
result := FName;
end;
{ TSenders }
function TSenders.Add(NM: widestring): ISender;
var
cnt : integer
//用以临时保存当前Sender 的个数。
begin
////// 采用数组的方式来保存 ISender ，应该还有更好的数据结构吧！
cnt := Get_Count;
FCount := cnt+1;
SetLength(FSenders,FCount);
FSenders[cnt] := TSender.Create(nm)
// 创建接口，添加到 FSenders 数组里。
result := FSenders[cnt];
end;
constructor TSenders.Create;
begin
FCount := 0;
SetLength(FSenders,FCount);
end;
function TSenders.Get_Count: OleVariant;
begin
if high(FSenders)=-1 then
result := 0
else
result := high(FSenders)-low(Fsenders)+1;
end;
function TSenders.Item(index: oleVariant): Isender;
begin
if (index<=high(FSenders)) and (index>=low(FSenders)) then
Result := FSenders[integer(index)]
else
Result := nil;
end;
{ TServer }
function TServer.Get_Senders: ISenders;
begin
if not Assigned(FSenders) then
FSenders := TSenders.Create;
result := FSenders;
end;
end.
下面做一个测试的主程序。
直接在按钮的事件里，
var
test : IServer;
begin
test := TServer.Create;
test.Senders.Add('Coffee');
test.Senders.Add('hello');
showmessage(test.Senders.Count);
showmessage((test.Senders.Item(0)).name);
end;
我的环境是 D7+XP 通过测试。
