是用writeln(‘hi’)函数的,我写了好几个,不会搞错的,读用readln的,

解决方案 »

  1.   

    program DosTest; {$Apptype Console}begin
      writeln('Hello world!');
      readln;
    end;
      

  2.   

    谢谢大家的回复。 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'
      不知哪儿错了? 是否我的编译器有问题??(的确,应该没错的。)
    我调试这个例子也是为了验证:  
      对于静态方法,子类只有继承;没有重载,也不存在“对于静态方法,父类与子类用同一地址,子类的方法将覆盖父类方法“这样的说法。
      你也可以针对这一问题提出自己的看法。谢谢。
      

  3.   

    我COPY了一份你的程序,编译通过,无任何错误!
      

  4.   

    console application如何控制光標的位置?