Case mit negative Werten?

[little_budda]

Hallo,

ich nutze folgenden "Case" unter D5 Pro

Delphi-Quellcode:

case iStromRange of
  -1 : eKorrekturFaktorStrom := 0.5;
  -2 : eKorrekturFaktorStrom := 0.25;
  -3 : eKorrekturFaktorStrom := 0.125;
  -4 : eKorrekturFaktorStrom := 0.0625;
end;

Mein Wert "iStromRange" kommt mit -2 herein aber er landet nicht auf meinem zweiten Eintrag.
Klappt eine Case Schleife mit negativen Werten nicht?

Gruß Holger.

:gruebel:

[Die Muhkuh]

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;

[mkinzler]

Sollte funktionieren? was kommt den bei dir raus?
BTW. Es gibt keine Case-Schleife, genauso wenig wie eine If-Schleife

[dominikkv]

Zitat:

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;

[little_budda]

Die Case "Anweisung" :-) wird einfach überlaufen.
Der Wert "eKorrekturFaktorStrom" hat den selben wert wie vor der Anweisung.
(0.8333333)
:wall:

[edit]
Das ShowMessage bringt wie zu erwarten mein -2.
[/edit]

[mkinzler]

Unter D2007 funktioniert es.

[Kroko1999]

Wenn "eKorrekturFaktorStrom" nicht weiter verwendet wird, optimiert der Compiler es weg, sollte aber eine Medlung bringen

[little_budda]

Das ist es!
Die Meldung hatte ich gesehen, aber ich dachte der Wert müsste trotzdem erhalten bleiben.
Sobald ich den Wert verwende klappt auch die Case-Anweisung.
:oops:
Danke.