Delphi中的SeekEof用法實例

Delphi中的SeekEof用法實例，在Delphi中，seekeof 函數作用是返回文件的結束狀態，seekeof不讀文件尾空行,就和seekeoln不算行末空格一樣,此函數在導彈攔截一題中超有用，以下是一個例子供參考。

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls; 06 type 07   TForm1 = class(TForm) 08     Button1: TButton; 09     procedure Button1Click(Sender: TObject); 10   private 11     { Private declarations } 12   public 13     { Public declarations } 14   end; 15 var 16   Form1: TForm1; 17 implementation 18 {$R *.dfm} 19 procedure TForm1.Button1Click(Sender: TObject); 20 var 21    f : System.TextFile; 22    i, j, Y : Integer; 23  begin 24    AssignFile(f,'TEST.TXT'); 25    try 26      Rewrite(f); 27      { Create a file with 8 numbers and some 28        whitespace at the ends of the lines } 29      Writeln(f,'1 2 3 4 '); 30      Writeln(f,'5 6 7 8 '); 31      Reset(f); 32      { Read the numbers back. SeekEof returns TRUE if there is no 33        more text (other than whitespace) in the file. } 34      Y := 5; 35      while not SeekEof(f) do 36      begin 37        Read(f,j); 38        Canvas.TextOut(5, Y, IntToStr(j)); 39        Y := Y + Canvas.TextHeight(IntToStr(j)) + 5; 40      end; 41    finally 42      CloseFile(f); 43    end; 44  end; 45 end.