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?

[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.

[himitsu]

Zitat von Bernhard Geyer:

Bei enums können nur Ganzzahlwerte verwendet werden.

Oder anders gesagt:

Ein Enum ist eine "durchnummerierte Liste" von "Bezeichnern", denen ein 0-basierter Index zugeordnet wird.
Das ist also keine "Liste" mit "Werten".



Man kann höchstens den Bezeichnern "manuell" einen Index zuweisen.
Und Indize sind nunmal ganzzahlig.

[Medium]

Wie wäre es in diesem Fall denn mit einer wirklichen Liste?

Delphi-Quellcode:

  Times := TList<Single>.Create;
  Times.AddRange(0, 0.5, 1, 1.5, 2, ... );

Zumal der vom TE gezeigte Wunsch TZeit=(1.0,2.1.,5.0,12.3); nichtmals eine Aufzählung wäre, es fehlen nämlich die Bezeichner.

Ich verstehe aber dennoch nicht, wo hier eine Aufzählung (oder Liste) einen Vorteil böte.

[Mojito]

Hallo Medium,

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

[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;