[Dezmandick]

Есть поток изменяющий Label.Caption на значение считанное из памяти в string,Как можно реализовать сравнение и реакцию на изменение в нужную сторону? при попытке такого кода

Код:

While 1 = 1 do
PZIsh:= StrToInt(Form1.Label7.Caption);
Sleep(1000);
PZTek:= StrToInt(Form1.Label7.Caption);
if PZIsh > PZITek then
begin
код
end

Критует программу и выдает дебаггер.

[Alegun]

Сообщение от Dezmandick

Код:

...
if PZIsh > PZIsh then
...

Сравнивается одно и тоже.

[Dezmandick]

Сообщение от Alegun

Сравнивается одно и тоже.

Извиняюсь тут опечатка вышла,в коде её нет.

[lmikle]

А точно в лаблах инты? Может флоаты затесались???

[icWasya]

Ну и в потоках без синхронизации НЕЛЬЗЯ обращаться к компонентам на форме. С некоторыми оговорками можно читать, а модифицировать НЕЛЬЗЯ.

[Dezmandick]

Сообщение от icWasya

Ну и в потоках без синхронизации НЕЛЬЗЯ обращаться к компонентам на форме. С некоторыми оговорками можно читать, а модифицировать НЕЛЬЗЯ.

Так меня и интересует чтение,грубо говоря есть число в label1 если оно увеличилось выполнить код, если уменьшилось то ничего не делать,проверка раз в секунду ~.

[icWasya]

Сообщение от Dezmandick

Так меня и интересует чтение,грубо говоря есть число в label1 если оно увеличилось выполнить код, если уменьшилось то ничего не делать,проверка раз в секунду ~.

А как же это

Сообщение от Dezmandick

Есть поток изменяющий Label.Caption

[Dezmandick]

Сообщение от icWasya

А как же это

Это отдельный поток и с ним проблем нет,если быть конкретнее то поток вызывает публичную функцию которая вычисляет число и присваивает его на label
1. первый поток изменяет Label.caption
2. второй поток при запуске должен работать уже c полученным caption
UPD: проблему решил вынесением опять таки всей логики в публичную функцию,знаю что это быдлокод но под действительные требования это сейчас подходит,всем спасибо.

[icWasya]

Даже если функция публичная, это не значит, что для неё не нужна синхронизация.