program P335;{$APPTYPE CONSOLE}uses
SysUtils;{ TODO -oUser -cConsole Main : Insert code here }
type
book=class(tobject)
private
title:string[20];
author:string[20];
publisher:string[20];
price:real; public
constructor Create;
destructor destroy;override;
procedure display;
end;
constructor book.Create;
begin
inherited create;
end;
destructor book.destroy;
begin
inherited destroy;
end;
procedure book.display;
begin
writeln('title:'+title);
writeln('author'+author);
writeln('publisher by'+publisher);
write('price');
write(price:10:2);
end;
var
delphibook:book;
begin
delphibook:=book.create;
delphibook.title:='mastering delphi';
delphibook.author:='liuhaitao';
delphibook.publisher:='not know';
delphibook.price:=20.2
delphibook.free;
end.给出的错误信息是missing operator or semicolon 什么意思
SysUtils;{ TODO -oUser -cConsole Main : Insert code here }
type
book=class(tobject)
private
title:string[20];
author:string[20];
publisher:string[20];
price:real; public
constructor Create;
destructor destroy;override;
procedure display;
end;
constructor book.Create;
begin
inherited create;
end;
destructor book.destroy;
begin
inherited destroy;
end;
procedure book.display;
begin
writeln('title:'+title);
writeln('author'+author);
writeln('publisher by'+publisher);
write('price');
write(price:10:2);
end;
var
delphibook:book;
begin
delphibook:=book.create;
delphibook.title:='mastering delphi';
delphibook.author:='liuhaitao';
delphibook.publisher:='not know';
delphibook.price:=20.2
delphibook.free;
end.给出的错误信息是missing operator or semicolon 什么意思
解决方案 »
- Installshield 制作卸载程序的问题!~~!!
- 各位兄台有谁知道如何插入大于100K的jpg图像到MS SQLServer 2000中(在线等待)
- 关于TDate的问题~很可能是Delphi Help的错误哦^O^
- 如何用ado实验表的关联查询啊!?
- 请教ODAC问题
- ~~~~~~~~~散分~~~~~~~~~~~~~~
- http://www.csdn.net/expert/topic/667/667616.xml?temp=.89349帮我up也好吧,看看吧
- DevExpress的皮肤功能在dll窗体中没有效果问题(急)
- 用模糊条件查询文件的位置
- 打印高手请进,,,,,,,,,,
- 那位高手能告诉小弟关于输入法编程的方法,多谢!!!100分
- 这个错误提示是什么意思
缺少操作符(運算符)或分號“;”。
end;
把delphibook.paric := 20.2替换成这个应该就可以了。