Jo richtig...ups...diese funktion kannte ich nicht
Dann hier die shortversion:
Delphi-Quellcode:
var
summe,stufe:integer;
begin
summe:=int((Sign(temp_raum1-referenz_temp)+abs(Sign(temp_raum1-referenz_temp))) / 2)
+ int((Sign(temp_raum2-referenz_temp)+abs(Sign(temp_raum2-referenz_temp))) / 2)
+ int((Sign(temp_raum3-referenz_temp)+abs(Sign(temp_raum3-referenz_temp))) / 2)
// summe gibt an, in wievielen Räumen die Temperatur GRÖSSER als die Referenztemperatur ist.
Stufe:=(3-summe) - (3-summe) div 3;
end;
Yeah, das nenn ich mal Code-Optimierung:
