很多人说我爱钻牛角尖.这不,我又钻到牛角里了.大家知道,定义var i:integer; str:string;后,不能直接相互赋值.如i:=j.可是有人知道是为什么吗? 笔误: j为str. 对不起了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 之所以这样问.因为我发现:var a:TComponent;begin a:=TControl.Create(self); a.Free ;end;能成功运行.var a:TControl;begin a:=TComponent.Create(self); a.Free ;不能运行.这就是说明定义父类后,可以直接构造子类而不出错.而相反, 定义为子类,不可以构造出父类.可是为什么不行呢?请大家给予指点. 子类包含有父类的构造和析构函数,但父类却不能包含子类的构造和析构函数。故以一下成立:var tsList:TStrings;begin tsList:=TStringList.Create(); tsList.Free; delphi listview 查询 开发DELPHI的皮肤包应该怎么弄? 工程硕士数学考什么? .小弟用canvas的textout方法+TTimer控件实现字幕功能,为何不能像foxmail的邮件提示栏那样做到文字没有闪烁? DbGridEh问题? 菜鸟问题!!! 关于多层服务器的开发及应用。 怎样通过程序动态指定打印机?(通过打印机名) 用sql语句创建dbf文件时,date, numeric, logical, float(需要指定精度)的写法?? 希望交流 怎么让后台运行的程序能同时用于win9x和xp? 连续打印准确定位问题
var
a:TComponent;
begin
a:=TControl.Create(self);
a.Free ;
end;
能成功运行.
var
a:TControl;
begin
a:=TComponent.Create(self);
a.Free ;
不能运行.
这就是说明定义父类后,可以直接构造子类而不出错.
而相反, 定义为子类,不可以构造出父类.
可是为什么不行呢?
请大家给予指点.
故以一下成立:
var
tsList:TStrings;
begin
tsList:=TStringList.Create();
tsList.Free;