Aufzählungstyp mit Gleitkommazahlen

[Mojito]

Hallo liebe Delphi Freunde,

ich möchte einen Aufzählungstyp erstellen, der Gleitkommazahlen wie 2.1, 2.9,10.2 etc. enthält. Wenn ich dies mache erhalte ich jedoch eine Fehlermeldung, da nur Ganzzahlen erlaubt sind:

type
TZalen=(1.0,2.0,3.0); E2029 Bezeichner erwartet, aber Real-Konstante gefunden

bzw wenn ich die Zahlen in Anführungszeichen ('3.2') setze,

"E2029 Bezeichner erwartet, aber String-Konstante gefunden "

Habt ihr eine Lösung, wie man dieses Problem umgehen könnte?

Vielen Dank für eure Hilfe

[Medium]

Als einziges was den Aufzählungstypen beibehalten würde, fiele mir ein Vielfache der WErte zu benutzen - quasi wie einen Festkommawert, und dann bei Benutzung entsprechend zu dividieren. Man kann das zwar mittels Funktionen und Drumherum einigermaßen nett machen, aber "schön" ist das dennoch nicht. Wenn du von dem Enum nachher keine Sets brauchst, würde ich fast auf die guten alten Konstanten zurückgreifen.

[Bernhard Geyer]

[OT]Mit Java wäre das keine Problem ....[/OT]

Bei enums können nur Ganzzahlwerte verwendet werden.

Was willst du eigentlich damit erreichen?

[Mojito]

Hallo Medium,

ja das würde wahrscheinlich gehen. Bei 30-40 Gleitkommawerten, würde das jedoch sehr viel und unübersichtlich werden.

[p80286]

Zitat von Bernhard Geyer:

[OT]Mit Java wäre das keine Problem ....[/OT]

Soweit ich weiß, sitzt da eine Kaffebohne und mach aus der reals Konstanten, die bei Bedarf rückübersetzt werden.

Zitat von Bernhard Geyer:

Was willst du eigentlich damit erreichen?

eine andere Möglichkeit wäre:
mytype=(zweiknull,dreiknull,vierk30,_5k79) daß müßte bei Bedarf natürlich wieder übersetzt werden.

Gruß
K-H

Zitat:

ja das würde wahrscheinlich gehen. Bei 30-40 Gleitkommawerten, würde das jedoch sehr viel und unübersichtlich werden.

Jo und Du bist auf dem besten Weg Dich zu wundern warum 2.300 nicht gleich 2.30 ist??

In den letzten Wochen gab es doch (gefühlt) haufenweise Threads dazu.

[uligerhardt]

Ich würde einen "normalen" Enum-Typen und ein konstantes Array draus machen:

Delphi-Quellcode:

type
  TStufe = (stWenig, stMittel, stBoah);
const
  cZahlen: array[TStufe] of Double = (1.0, 2.0, 3.0);

Das kann man dann so benutzen:

Delphi-Quellcode:

procedure VerarbeiteStufe(AStufe: TStufe);
begin
  ShowMessage(FloatToStr(cZahlen[AStufe]));
end;

[Jonas Shinaniganz]

Du könntest du inetwa beschreiben was du dann im weiteren Verlauf damit vorhast?

Vielleicht kommst du mit einem Array viel schneller zum Ziel,

Grüße

[Mojito]

Der Aufzählungstyp ist Teil eines Records, der für einen Array genutzt wird. So ungefähr sieht oder soll es aussehen.

Delphi-Quellcode:

type
TZeit=(1.0,2.1.,5.0,12.3);
TPNummer=integer;
....

TPersonal = record
Arbeitszeit: Zeit;
Mitarbeiter: integer;
...

TPKarte = array[1..100] of TPersonal; 

var
Personal:TPKarte;

[Medium]

Warum dafür eine Aufzählung? Einfach als Float oder dar TDateTime (TTime) in den Record und fertig.

[p80286]

Ich nehme an, daß die Arbeitszeit in 5minutenschritten , oder so ähnlich, erfaßt wird, darum die Aufzählung.
Da müßte dann eine spezielle Art der Rundung eingebaut werden.


Gruß
K-H