1
Ваши вопросы / Re: Экспорт файла
« : 24 Мая 2019, 14:54:07 »
Супер. Спасибо за ответ. Но я извиняюсь, может уже Вам надоел, но шеф потребовал доработку с которой я не могу справиться. Вот то, что у меня получилось, просто шикарно, но требуется что бы со значением шло время и дата (например 1я строка - время, 2я - значение, 3 - время, 4 - значение и т.д). Пробовал ставить календарь, но там дата 1899 года, добавил в скрипт, так в TXT файл оно добавляет две строки с нулями, т.е. 1я строка-значение, 2я-ноль, 3я-ноль, 4-значение 5-ноль, 6-ноль и т.д.. Читал в одной из тем, что человек как-то перевел в текст и стало все нормально.
Код: (delphi)
begin
if not FileExists('Давление.txt', '') then
TextFileOpen('Давление.txt', '', fomRewrite, fcpUTF8)
else
TextFileOpen('Давление.txt', '', fomAppend, fcpUTF8);
if TextFileOpen('Давление.txt', '', fomAppend, fcpUTF8) then
TextFileWriteLn(Field1.AsStr);
TextFileWriteLn(Calendar1.AsStr);
end.