请问:
1: TFormClass = class of TForm;是不是等同于 TFormClass = class(TForm);
TFormClass和TForm有什么不同啊;
2:string和stringlist有什么区别
1: TFormClass = class of TForm;是不是等同于 TFormClass = class(TForm);
TFormClass和TForm有什么不同啊;
2:string和stringlist有什么区别
解决方案 »
- 快速更换图片
- 打开delphi后,一运行就出错!!!
- SQL嵌套
- 两个关于RAVE报表的问题,100分紧急求救 !!
- 散掉最后20分来问这个简单的问题,高手一定要帮帮我,一定等解答了才去吃晚饭. :)
- 我在程序中在ACCESS数据库中创建表,并插入数据,但是有的时候插入数据时会报找不到数据库的错误,怎么解决呀?
- 一个关于Listview 显示 缩略图的问题 见鬼了
- 有关ADO数据库连接的问题!!!
- ★★★★★超级难题:如何返回函数名称?
- 如何在delphi中动态加载控件?就象vb中一样?举个例子!
- 删除问题???各位帮帮忙,在线等待.......
- 如何在delphi中备份和还原sql server 数据库和日志文件,在线等。谢谢
1:TFormClass = class of TForm;//-->TFormClass == TForm
TFormClass = class(TForm); //-->TFormClass 继承至 TForm
2:string是一般在字符串;//如str := 'abc' ;
stringlist是字符串列表,可以像数组一样访问的,
使用时要创建的,最后要释放
strList := TSTringList.Create;
strList.Add('abc');
strList.Add('123');
//...
strList.Free;
string是保存字符串用的,而stringlist是TStrings的派生类TStringList声明的对象,是字符串数组,它能保存一系列的字符串,使用时要自己创建,自己销毁,String则不用!
type TControlClass = class of TControl;
编写一个创建TControl的函数
function CreateControl(ControlClass: TControlClass;
const ControlName: string; X, Y, W, H: Integer): TControl;
begin
Result := ControlClass.Create(MainForm);
with Result do
begin
Parent := MainForm;
Name := ControlName;
SetBounds(X, Y, W, H);
Visible := True;
end;
end;
调用:
CreateControl(TEdit, 'Edit1', 10, 10, 100, 20);
这里,Tedit是TControl的子类就可以正常运行。