Пожалуйста, включите JavaScript для просмотра этого сайта.

Скрипты Simple-Scada

История: Примеры скриптов > Работа с файлами

Работа с текстовыми файлами

Пред. Вверх След. Еще

Задача: сохранить значение целочисленной переменной в файл, а потом считать его обратно в переменную. Перед записью значения его необходимо перевести в строку. Скрипт для записи в файл:

begin
  TextFileOpen('MyTextFile.txt''', fomRewrite, fcpUTF8); // создаем и открываем файл
  TextFileWriteLn(IntToStr(vrWrite.OriginalAsInt));        // записываем значение переведенное в строку
  TextFileClose;                                           // закрываем файл
end.

 

Скрипт для чтения из текстового файла назад в переменную . Здесь действия идут в обратном порядке. Сначала читаем из файла строку, затем переводим в целое число и сохраняем в переменную:

var
  aReadStr: string;
begin
  { прерываем скрипт если файл не существует }
  if not FileExists('MyTextFile.txt'''then
    Exit;
 
  TextFileOpen('MyTextFile.txt''', fomReset, fcpUTF8); // открываем файл для чтения
  aReadStr := TextFileReadLn;                            // читаем строку из файла
  vrWrite.Value := StrToInt(aReadStr);                   // переводим строку в целое число и сохраняем в переменную
  TextFileClose;                                         // закрываем файл
end.