您好,请教关于delphi下的dos模式的问题 是用writeln(‘hi’)函数的,我写了好几个,不会搞错的,读用readln的, 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 program DosTest; {$Apptype Console}begin writeln('Hello world!'); readln;end; 谢谢大家的回复。 ly_liuyang(Liu Yang) : 您给的例子的确可以通过;不过请看如下代码:program qqqq;{$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' 不知哪儿错了? 是否我的编译器有问题??(的确,应该没错的。)我调试这个例子也是为了验证: 对于静态方法,子类只有继承;没有重载,也不存在“对于静态方法,父类与子类用同一地址,子类的方法将覆盖父类方法“这样的说法。 你也可以针对这一问题提出自己的看法。谢谢。 我COPY了一份你的程序,编译通过,无任何错误! console application如何控制光標的位置? Delphi新手高手都来指点 QRBand1BeforePrint 的奇怪问题,期待解决 想做一个进度条,请教各位 如何在一个窗体加快捷键,比如按f9触发“确定“按钮事件 请问,在DELPHI中如何取得本机的IP和MAC地址? 在delphi6下装ActiveX控件时候出现错误 怎样使ListView中的Item字体具有不同的颜色? Delphi中如何控制编译后文件的大小?? 3000元的薪水还不能满足我,为了5000元而放弃目前的工作,等于一场空,我该怎么做? 如何用DELPHI 5编写MP3播放器和.MPG播放器?? 声明一个类 在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'
不知哪儿错了? 是否我的编译器有问题??(的确,应该没错的。)
我调试这个例子也是为了验证:
对于静态方法,子类只有继承;没有重载,也不存在“对于静态方法,父类与子类用同一地址,子类的方法将覆盖父类方法“这样的说法。
你也可以针对这一问题提出自己的看法。谢谢。