Как последовательно считывать параметр PV с ТРМ201?

[vitug]

У меня при бесконечном цикле программа напрочь виснет и никакой результат на экран не выдаёт...

Пример работы с потоками у меня в теме про python библиотеку, там выводится окошко и создаётся поток, который читает данные в бесконечном цикле и выдаёт форме сообщение об обновлении, но это ещё раз повторяю в пайтоне. А в делфях и в билдере самое простое это по таймеру читать и тут же на форму выводить, тот же самый поток получается по сути.

[IliaIT]

если делаете поток то и организовывать его надо как поток, а не в теле программы писать как процедуру, о чём правда не могу сказать не видя кода.
а если припёрло написать считывание не через таймер(по простому но медленнее потока ибо чаще чем раз в 50 мс сложно сделать срабатывание таймера по факту), а через цикл(особенно бесконечный в теле основной программы), то добавьте строчку в код дельфи

Application.ProcessMessages;

или же если вам надо последовательно выводить значения в одно и тоже место то делайте таймер с интервалом от 200 мс (сами поглядите как часто вам надо, и учитывайте время ответа при этом, и всё равно в интервале меньше 200 вы не заметите какое число).
то есть будет код: (добавляйте сразу желательно проверки (chitaen_nazvanie), а то можно пропустить момент когда прибор не отвечает или присылает коды ошибок)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  chitaen_nazvanie:=ReadFloat24(adr,0,'PV',val,-1);
  Label4.Caption:=FloatToStr(val);
end;

[iKarma]

Я сделал через таймер Спасибо vitug за подсказку!