Yaremchenko писал(а):
Вот 100% работаетНапример, чего стоит только этот "шедевр" :
case st.BatteryFlag of
0: i := 0;
1: i := 1;
2: i := 2;
4: i := 3;
8: i := 4;
128: i := 5;
else i := -1;
end;
А вот "чистой" 8-кой st.BatteryFlag, вероятней всего, никогда не будет.