Ich habs jetzt soweit gemacht allerdings ohne der vorherigen abfrage IsOn
Delphi-Quellcode:
if (Thermometer = 'OFF') and (StrToInt(AktTemp) > StrToInt(Temperatur)+0.1) then
begin
IsOn:= false;
end;
if (Thermometer = 'OFF') and (StrToInt(AktTemp)+1.9 < StrToInt(Temperatur)) then
begin
IsOn:= true;
end;
if (Thermometer = 'false') then
begin
IsOn:= true;
end;
so funktioniert es auch im Timer über Zeitrutinen wenn das Thermometer deaktiviert ist.
Danke nochmal
Lg Mario