Case mit negative Werten?

[dominikkv]

Zitat von Die Muhkuh:

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;

Du meinst else?

Delphi-Quellcode:

case iStromRange of
  -1 : eKorrekturFaktorStrom := 0.5;
  -2 : eKorrekturFaktorStrom := 0.25;
  -3 : eKorrekturFaktorStrom := 0.125;
  -4 : eKorrekturFaktorStrom := 0.0625;
else
  ShowMessage(IntToStr(iStromRange));
end;