delphi Getclass findClass用法

来源:互联网 发布:vb浏览文件夹选择txt 编辑:程序博客网 时间:2024/06/06 00:47
var
  className: string;
 HelperClass: THelperClass;
begin
  Result := nil;


  className := FConfig.ReadString('Configuration', 'className', '');
  if className = '' then
    Exit;


  if GetClass(className) = nil then
    Exit;
HelperClass := THelperClass(FindClass(className));

  Result :=HelperClass.create(FConfig);

end;

原创粉丝点击