在书中出现如下代码:
Type
TShape=class
...
procedure Paint(x,y:integer):virtual;
end;
Tcircle=class(Tshape)
...
procedure paint;override;
end;
Trectangle=class(Tshape_
...
procedure paint;override;
end;
...
var myshape:Tshape;
x,y:integer;
begin
...
end.
令我不解的是代码中的begin...end.部分语句是属于那部分的?
Type
TShape=class
...
procedure Paint(x,y:integer):virtual;
end;
Tcircle=class(Tshape)
...
procedure paint;override;
end;
Trectangle=class(Tshape_
...
procedure paint;override;
end;
...
var myshape:Tshape;
x,y:integer;
begin
...
end.
令我不解的是代码中的begin...end.部分语句是属于那部分的?
解决方案 »
- timeSetEvent的问题
- bsSkinButtonsBar的问题
- WebBrowser控件如何更改IE Internet选项中的设置?
- 窗口中的有个特殊的控键,怎么bm_click一下—急—大虾帮帮我
- 如何判断sql库中image型字段为空
- 一个到处都要用到的变量,想初始化,怎么实现?
- 老大们,请看DBComboBox1
- MDI主窗体的用户去加入Label为什么Label的显示位置和其实际位置不一样?
- Delphi调用WINDOWS的拷贝命令(拷贝 -> 复制)带动画的窗口正在复制用什么 API 函数
- 请各位给小弟介绍几本delphi关于com/com+的电子书,好吗,要通俗一点的.
- 如何让ListView/TreeView向Windows的资源管理器拖动文件?
- 如何通过程序为windows创建用户,授与权限,共享文件夹?
这是一个Program的程序单元吧,或是是Libary的,或是Project的