Скрипты Simple-Scada

Синтаксис

function TextFileEOF: Boolean;

Описание

Возвращает True, если достигнут конец текстового файла.

Пример кода

var
  S: String;
begin
  // прервать скрипт если файл по стандартному пути не существует
  if not FileExists('MyTextFile.txt', '') then 
    Exit;
  
  // открыть файл для чтения
  TextFileOpen('MyTextFile.txt', '', fomReset, fcpUTF8);  
 
  // пока не достигнут конец файла считывать строки в переменную "S"
  while not TextFileEOF do 
    begin
      S := TextFileReadLn;
    end;
 
  // закрыть файл
  TextFileClose;
end.