SeekEoln函数 - Borland Delphi 开发工作者手册

返回介绍

SeekEoln函数

发布于 2019-08-04 字数 804 浏览 821 评论 0

System

function SeekEoln[(var F:Text)]:Boolean;

SeekEoln 返回一个文件行尾的状态。SeekEoln只能被用于打开的文本文件。($I

+}开关使用异常处理运行时间错误。{$I-}开关IOResult检查I/O错误。

var

f: System.TextFile;

i,j,Y:Integer;

begin

AssignFile(f,’TEST.TXT’);

Rewrite(f);

{创建一个有8个数的文件,一些空格在行的最后}

Writeln(f,’1 2 3 4′);

Writeln(f,’56 7 8′);

Reset(f);

{ 向后读取数字SeekEoln 返回TRUE,如果在当前行没有更多的数。SeekEof返TRUE,如果没有更多的文本在文件中}

Y :=5;

while not SeekEof(f) do

begin

if SeekEoln(f)then

Readln;{Go to next line}

Read(f,j);

Canvas.TextOut(5,Y,IntToStr(j));

Y :=Y+ Canvas.TextHeight(IntToStr(j))+ 5;

end;

end;

上一篇:SeekEof函数

下一篇:Seek过程

发布评论

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

支持 Markdown 语法,需要帮助?

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