Fórum Como registrar uma classe tendo somente o nome na string? #336274

{$Region´Variaveis´}
var
  DinamicClass: Array of TPersistentClass;
  Packages: Array of Cardinal;
{$EndRegion}

{$R *.dfm}

{$Region´Funcoes para componentes extras´}
function GetClassNameFromBpl(FileName: String): String;
begin
  if FileExists(FileName) then
    begin
      Result := ExtractFileName(FileName);
      Result := Copy(Result,1,Length(Result)-4);
      Result := ´T´ + Result;
    end;
end;

function GetClassFromBpl(FileName: String): TPersistentClass;
begin
  Result := GetClass(GetClassNameFromBpl(FileName));
end;

procedure CarregaBpl(FileName: String);
begin
  //-- Carrega a BPL
  SetLength(Packages,Length(Packages)+1);
  Packages[Length(Packages)-1] := LoadPackage(FileName);
  //-- Pega nome da classe
  SetLength(DinamicClass,Length(DinamicClass)+1);
  RegisterClass(GetClass(GetClassNameFromBpl(FileName)));
  DinamicClass[Length(DinamicClass)-1] := GetClass(GetClassNameFromBpl(FileName));
end;

procedure DescarregaBpl;
var
  i: Integer;
begin
  //-- Descarrega as packages
  for i := 0 to Length(Packages) - 1 do
    UnloadPackage(Packages[i]);
  //-- Desregistra as classes
  UnRegisterClasses(DinamicClass);
end;
{$EndRegion}