全部博文(788)
分类:
2008-09-16 14:57:51
怎么没有人来帮个忙哦
需要一数组对类进行维护,
arr: array of TClass;
然后类加入到数组。
类似下面,或者生命数组常量
SetLength(arr, Length(arr) + 1);
arr[High(arr)] := TClass1;
全部加入到数组
procedure TSvQueueRDM.StrategyTrans(var Stgy: OleVariant);
begin
for i:=0 to high(arr) do
if arr[i].ClassNameIs(Stgy) then
begin
CxQuStgy := arr[i].Create;
break;
end;
end;