不知道delphi能不能根据一个字符串,创建并调用1个类。
比如说如下代码:
var
s: string;
begin
s := 'TForm2';
//请问:代码 怎么写,才能只根据s的值,把TForm2创建并调用出来,当然TForm2类在工程中是存在的。
end;
比如说如下代码:
var
s: string;
begin
s := 'TForm2';
//请问:代码 怎么写,才能只根据s的值,把TForm2创建并调用出来,当然TForm2类在工程中是存在的。
end;
调试欢乐多
ps: array[0..254] of Char;
begin
GetClassName(Handle, ps, 255);
ShowMessage(ps); {TForm1}PS是类名,可以参考下