Передача имени класса как параметра

[Квэнди]

Антон Ю.Б.прочитав в справке по обоим методам не понял для себя разниы: в обоих случаях необходим зарегистрированный потомок TPersistent. Оба получают одно и тоже и отдают одно и тоже) Разница только в обработке ошибок:

function GetClass(const AClassName: string): TPersistentClass;
begin
  RegGroups.Lock;
  try
    Result := RegGroups.GetClass(AClassName);
  finally
    RegGroups.Unlock;
  end;
end;

function FindClass(const ClassName: string): TPersistentClass;
begin
  Result := GetClass(ClassName);
  if Result = nil then ClassNotFound(ClassName);
end;

А мне что обрабатывать на nil, что ловить EClassNotFound все равно. Хотя со стороны красоты кода использование FindClass более красиво, так что скорей всего использовать буду его, так что спасибо )

[pu4koff]

Ну если пишите на Delphi 2009, то там вроде появились шаблоны и посредством них (если конечно эти шаблоны как в C# или С++) можно сделать что-то подобное, только имя класса не строкой передавать, а просто именем класса

[Квэнди]

не, шаблон там несколько иначе реализованы, да и для другого они там )

[evg_m]

type 
TobjectClass= class of TObject;

function CreateClass(objclass: TObjectClass): TObject;
begin
   result:=objclass.Create;
end;

[Квэнди]

Сообщение от evg_m

type 
TobjectClass= class of TObject;

function CreateClass(objclass: TObjectClass): TObject;
begin
   result:=objclass.Create;
end;

Это к чему ?