Лишний символ TextFileReadLn

[pan2000]

Функция TextFileReadLn при первом обращении возвращает лишний первый символ.

Пример во вложении.

[Simple-Scada]

Здравствуйте.

Функция TextFileReadLn работает одинаково для всех строк в файле, независимо от их позиции, или от количества обращений к файлу. Ваш файл сохранён с отметкой BOM (Byte order mark), поэтому она просто считывается из файла. Сохраните файл без BOM, либо удаляйте символы BOM в коде скрипта:

Код: (delphi)

begin
  TextFileOpen('MyTextFile.txt', '', fomReset, fcpUTF8);
  Text1.Text := TextFileReadLn.Replace(#$FEFF, '');
  Text2.Text := TextFileReadLn;
  TextFileClose;
end.