Q
qiuwenqiao
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.LoadDataModule;
var
dataModuleClass: TPersistentClass;
admGlobal: TDataModule;
begin
dataModuleClass := GetClass('TConcreteDataModule');
if dataModuleClass <> nil then
begin
admGlobal:= TDataModule(TComponentClass(dataModuleClass).Create(Application));
end;
end;
var
dataModuleClass: TPersistentClass;
admGlobal: TDataModule;
begin
dataModuleClass := GetClass('TConcreteDataModule');
if dataModuleClass <> nil then
begin
admGlobal:= TDataModule(TComponentClass(dataModuleClass).Create(Application));
end;
end;