新手关于面向对象的问题,请各位大侠帮忙!

weidongo weidongo 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
这是我编的一段代码:
program console10;

{$APPTYPE CONSOLE}

//uses SysUtils;

type
man=class
public
name,address:string;
procedure who;
procedure say;
end;

procedure man.who;
begin
writeln('Who are you?');
readln(name);
writeln('Where are you live?');
readln(address);
end;

procedure say;
begin
writeln('Hello');
write(name);
write('you address is ');
write(address);
end;


var
name,address:string;
weidongo:man;

begin
{ TODO -oUser -cConsole Main : Insert code here }

weidongo:=man.Create;
weidongo.who;
weidongo.say;

end.

可是编译时却报错,如下:
[Error] console10.dpr(26): Undeclared identifier: 'name'
[Error] console10.dpr(28): Undeclared identifier: 'address'
[Error] console10.dpr(12): Unsatisfied forward or external declaration: 'man.say'
...全文
评论 6
收藏 已收藏
分享
返回顶部
weidongo
Delphi 5,944 成员 262,941 内容