Скрипты Simple-Scada

Рассмотрим работу с двоичными файлами для ситуации, когда нужно сохранить различные данные в файл, а потом загрузить их в различные объекты. Создадим две кнопки – для сохранения в файл и для загрузки из файла. Также создадим три объекта "Поле" и три объекта "Текст". В событии "OnClick" первой кнопки напишем скрипт для сохранения в файл:

begin
  // открыть если существует или создать файл "MyFile.sbm" 
  // (расширение можно использовать любое)
  if FileOpen('MyFile.sbm', '' ) then
  begin
    FileWriteString (Field1.AsStr);   // записать в файл строку из поля
    FileWriteInteger(Field2.AsInt);   // записать в файл целое число из поля
    FileWriteSingle (Field3.AsFloat); // записать в файл вещественное число из поля
    FileWriteString (Text1.Text);     // записать в файл содержимое текста
    FileWriteDateTime(Now);           // записать в файл текущую дату и время
    FileClose;                        // закрыть файл
  end;
end.

В событии "OnClick" второй кнопки напишем скрипт для чтения данных из файла:

begin
  // считывать данные нужно в той последовательности, в которой они были записаны
  if FileOpen('MyFile.sbm', '') then    // открыть файл если существует
  begin
    Field1.Value := FileReadString;     // считать в переменную поля строку
    Field2.Value := FileReadInteger;    // считать в переменную поля целое число
    Field3.Value := FileReadSingle;     // считать в переменную поля вещественное число
    Text2.Text   := FileReadString;     // считать в текст строку
    Text3.Text   := DateTimeToStr(FileReadDateTime); // считать в текст время и дату
    FileClose;                          // закрыть файл
  end;
end.

Теперь по нажатию первой кнопки данные будут сохраняться в файл, а по нажатию второй загружаться из файла.