使用Procedure Writeln([var F:Text;]P1[,P2,...,Pn]); 说明:Write的扩展,用于文本文件,比Write多写入一个回车换行符。 uese WinCrt;var S:String; begin Write('Enter a Line of Text:'); Readln(s); Wrtieln('You typed:',s); Writeln('Hit <Enter> to exit'); readln; end.
var s:string; begin s:=s+#$0d+#$0a; write(s); end;或者 writeln(s);
说明:Write的扩展,用于文本文件,比Write多写入一个回车换行符。
uese WinCrt;var
S:String;
begin
Write('Enter a Line of Text:');
Readln(s);
Wrtieln('You typed:',s);
Writeln('Hit <Enter> to exit');
readln;
end.
s:string;
begin
s:=s+#$0d+#$0a;
write(s);
end;或者
writeln(s);