完成DELPHI的不可能功能:宏替换!(如何根据字符串来创
2008-04-30 16:00
330 查看
完成DELPHI的不可能功能:宏替换!(如何根据字符串来创建对象)
我们在做一个比较大的系统(采用MDI方式)的时候,希望项目中的菜单、窗体全部是动态创建的,这样的话,程序员就很容易利用数据库将这些内容储存起来,需要的时候再根据这个用户的权限来取得相应的记录,根据这些记录来创建菜单、表单等!
在这个过程中,我们必须面对的一个问题是: 在储存窗体对象的时候我们只能储存它的对象名(字符串), 但我们在程序中如何实现将字符串“转换”为对象名呢?(注:我这里用引号把“转换”引起来是因为:字符串是不可能转换为对象名的)
这个功能其实在一些伪编译的开发工具中,如VF中就比较容易实现,如在VFP中只要用一个“&”运算符就可以实现了!但由于DELPHI是一个编译程序,所以不可能这么去处理的!
我们来看下面的简单例子:
//为了简单起见,在这里我没有写数据库操作的代码,只是直接写了一个字符串,实际使用的时候可以根据实际情况来写!
1、在DELPHI集成开发环境中关闭所有的项目;
2、建立一个新的MDI应用程序项目:file->new->other->projects->MDI Application;
3、编辑MainMenu1,添加一个菜单项TestChange,并双击这个菜单项,编辑代码如下:
4、在主窗口(mainform)中写上以下代码,以便调用你想要的窗口
procedure TMainForm.Da1Click(Sender: TObject);
var
Child: TForm;//声明一个TForm类型的变量,做为显示子窗口的名称变量
begin
{ create a new MDI child window }
Child := GetClassName('TMDIChild');//TMDIChild就是你在数据库存储的,子窗口的类名!
Child.Caption := 'hello world'; //设置窗体标题
Child.Show; //显示这个窗体
end;
5、编辑GetClassName函数:
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
Function GetClassName(tmpClass:String):TForm; //记得要在程序开头做声明
public
{ Public declarations }
end;
....
function TMainForm.GetClassName(tmpClass:String):TForm;
var
cClass:TClass;
begin
cClass:=GetClass(tmpClass);//取得类名
if cClass <>nil then //如果这个类已经注册
application.CreateForm(TComponentClass(cClass),result);//创建这个类的实例
end;
5、在TMDIChild窗口中注册这个窗口的类:
initialization
registerClass(TMDIChild);
finalization
unregisterClass(TMDIChild);//注册完了当然要释放掉它了
这样你就可以完成类似于VF中的&这个宏替换的功能了!
不知道是不是这个标题有点太过夸张了?吓着你了吧!
我们在做一个比较大的系统(采用MDI方式)的时候,希望项目中的菜单、窗体全部是动态创建的,这样的话,程序员就很容易利用数据库将这些内容储存起来,需要的时候再根据这个用户的权限来取得相应的记录,根据这些记录来创建菜单、表单等!
在这个过程中,我们必须面对的一个问题是: 在储存窗体对象的时候我们只能储存它的对象名(字符串), 但我们在程序中如何实现将字符串“转换”为对象名呢?(注:我这里用引号把“转换”引起来是因为:字符串是不可能转换为对象名的)
这个功能其实在一些伪编译的开发工具中,如VF中就比较容易实现,如在VFP中只要用一个“&”运算符就可以实现了!但由于DELPHI是一个编译程序,所以不可能这么去处理的!
我们来看下面的简单例子:
//为了简单起见,在这里我没有写数据库操作的代码,只是直接写了一个字符串,实际使用的时候可以根据实际情况来写!
1、在DELPHI集成开发环境中关闭所有的项目;
2、建立一个新的MDI应用程序项目:file->new->other->projects->MDI Application;
3、编辑MainMenu1,添加一个菜单项TestChange,并双击这个菜单项,编辑代码如下:
4、在主窗口(mainform)中写上以下代码,以便调用你想要的窗口
procedure TMainForm.Da1Click(Sender: TObject);
var
Child: TForm;//声明一个TForm类型的变量,做为显示子窗口的名称变量
begin
{ create a new MDI child window }
Child := GetClassName('TMDIChild');//TMDIChild就是你在数据库存储的,子窗口的类名!
Child.Caption := 'hello world'; //设置窗体标题
Child.Show; //显示这个窗体
end;
5、编辑GetClassName函数:
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
Function GetClassName(tmpClass:String):TForm; //记得要在程序开头做声明
public
{ Public declarations }
end;
....
function TMainForm.GetClassName(tmpClass:String):TForm;
var
cClass:TClass;
begin
cClass:=GetClass(tmpClass);//取得类名
if cClass <>nil then //如果这个类已经注册
application.CreateForm(TComponentClass(cClass),result);//创建这个类的实例
end;
5、在TMDIChild窗口中注册这个窗口的类:
initialization
registerClass(TMDIChild);
finalization
unregisterClass(TMDIChild);//注册完了当然要释放掉它了
这样你就可以完成类似于VF中的&这个宏替换的功能了!
不知道是不是这个标题有点太过夸张了?吓着你了吧!
相关文章推荐
- 完成DELPHI的不可能功能:宏替换!(如何根据字符串来创建对象)
- 完成DELPHI的不可能功能:宏替换!(如何根据字符串来创建对象)
- 不开辟用于交换数据的临时空间,如何完成字符串的逆序(在技术一轮面试中,有些面试官会这样问)
- Python正则表达式如何进行字符串替换
- 基于UTF8字符串检查错误替换功能
- 如何实现TortoiseSVN日志过滤字符串的功能
- C#如何根据字符串动态的创建对象(类)
- 如何用C# string.Replace方法将字符串中的替换成
- 用C++完成 根据三点坐标求三角形面积 功能
- c/cpp中如何分割字符串,类似于split的功能
- Delphi编辑器的“代码完成”功能
- 如何用SQL语句批量替换数据库字符串
- 1.读取excel文件,将输入存储到数据库中(JXL) 2.完成商品的检索相关功能 1.根据分类,显示分类下所有的商品信息,按照库存量从低到高排序(提供补货依据) 2.模糊搜索,根据商品信息(名
- 如何完成支付宝的支付功能?
- 如何用Python来进行查询和替换一个文本字符串
- 重温delphi之:如何将Bitmap位图与base64字符串相互转换
- Delphi 根据字符串找到函数并执行的实例
- delphi 如何将XML格式的字符串导入ClientDataSet中
- 如何完成一个实现Pause和Continue这两个功能的Windows Service
- linux下如何搜索字符串或替换字符串