是用writeln(‘hi’)函数的,我写了好几个,不会搞错的,读用readln的,
解决方案 »
- IdHttp和Servlet通讯的字符编码问题(转gb2312或gbk),愁死了!!!
- 关于DELPHI6的TCPServer和TCPClient的问题
- 关于简单的字符切割截取问题.................................................
- 求一个算法
- 在delphi中怎样删除DBImage对应的某记录的照片字段(二进制数据)的内容?
- 朋友们为何没有能帮我一下了我我急
- 讨论三层的架构问题
- 如何用一条语句运行外部的EXE文件
- 怎么区分是不是可接键盘输入控件
- 怎样监视ACCESS数据库执行的每一条SQL语句(急!!!)
- 声明一个类
- 在DELPHI嵌入SQL语句动态创建数据库
writeln('Hello world!');
readln;
end;
{$apptype console}
type
tperson=class
procedure infor;
end;
temployee=class(tperson)
procedure info;
end;
procedure tperson.infor;
begin
writeln('tpersoninfo');
readln;
end;
procedure temployee.info;
begin
writeln('employeeinfo');
readln;
end;
var
p1:tperson;
e1:temployee;begin
p1:=tperson.Create;
p1.infor;
p1.destroy;
p1:=temployee.create;
p1.infor;
temployee(p1).info;
p1.Destroy;
e1:=temployee.Create;
e1.info;
e1.destroy;
end.
编译时给出如下提示:unknown directive :'writeln'
不知哪儿错了? 是否我的编译器有问题??(的确,应该没错的。)
我调试这个例子也是为了验证:
对于静态方法,子类只有继承;没有重载,也不存在“对于静态方法,父类与子类用同一地址,子类的方法将覆盖父类方法“这样的说法。
你也可以针对这一问题提出自己的看法。谢谢。