|
|
От: | jonny210 | |
| Дата: | 11.07.06 06:13 | ||
| Оценка: | |||
type
TBaseObj = class;
TBaseObjClass = class of TBaseObj;
TMyObj1 = class(TBaseObj)
end;
TMyObj2 = class(TBaseObj)
end;
procedure xxx1;
begin
xxx2(TMyObj1);
end;
procedure xxx2(obj_class: TBaseObjClass);
var
Obj: TBaseObj;
begin
Obj := obj_class.Create;
....
end;