为什么出错

mjpclab 2004-07-06 12:38:33
自定义一个类,但出错,我是凭c++的经验写的,可能有什么不对

type
.......

TPlate=class
public
Width,Height:byte;
constructor Create(tWidth,tHeight:byte);
end;

implementation

constructor TPlate.Create(tWidth,tHeight:byte);
begin
Width:=tWidth;
Height:=tHeight;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
p1,p2:TPlate;
begin
p1.Create(1,2);
p2.Create(3,4); //执行至此出错,代码窗口下方提示p1,p2尚未初始化

showmessage(inttostr(p1.Width));
showmessage(inttostr(p1.Height));
end;
...全文
87 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
linzhisong 2004-07-06
  • 打赏
  • 举报
回复
var
p1,p2:TPlate;
begin
p1:= TPlate.Create(1,2);
p2:= TPlate.Create(3,4);

showmessage(inttostr(p1.Width));
showmessage(inttostr(p1.Height));
end;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧