Doch, case klappt auch mit negativen Werten.
Mach mal noch folgendes:
Delphi-Quellcode:
case iStromRange of
-1 : eKorrekturFaktorStrom := 0.5;
-2 : eKorrekturFaktorStrom := 0.25;
-3 : eKorrekturFaktorStrom := 0.125;
-4 : eKorrekturFaktorStrom := 0.0625;
default
ShowMessage(IntToStr(iStromRange));
end;
Bei mir klappte das eben mit negativen Werten.
Ansonsten ginge auch noch folgendes:
Delphi-Quellcode:
case Abs(iStromRange) of
1 : eKorrekturFaktorStrom := 0.5;
2 : eKorrekturFaktorStrom := 0.25;
3 : eKorrekturFaktorStrom := 0.125;
4 : eKorrekturFaktorStrom := 0.0625;
end;