Readln过程 - Borland Delphi 开发工作者手册

返回介绍

Readln过程

发布于 2019-08-04 字数 732 浏览 865 评论 0

System

procedure Readln([var F:Text;]V1[,V2,…,Vn]);

Readln从一个文件中读取一行文本。读取一行文本接着跳到文件的下一行。如果文件有行,Readln(F)没有参数来使文件的读取位置前进到下一行的开始位置。否则,转到文件的结尾。使用{$I+}开用异常关来处理运行时间错误。当使用{$I-}开关可以用IOResult检查I/O错误。当一个应用程序是被编辑作为一个控制台程序时(使用Project|Options对话框中的Linker页的Generate console检查框),Delphi自动地联接输入和输出文件与应用控制台的窗口。对于单控制台应用,任何试图从输入读入或写到输出将产生一个I/O错误。

var

s:string;

begin

write(‘Enter a line of text:’);

Readln(s);

Writeln(‘You typed:’,s);

Writeln(‘Hit<Enter> to exit’);

Readln;

end;

上一篇:ReadComponentRes函数

下一篇:Read过程

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!