Der gute alte ORD Befehl

[ATS3788]

Delphi-Quellcode:

type
TDIN_Format = (DinA4, DinA5);
var
DIN_Format : TDIN_Format;
......
i := ord(DIN_Format.DinA4); /// i = 0

Geht das auch umgekehrt.
DIN_Format einen Wert über eine Ordinante zuzuweisen.
Also nicht wie normal _DIN_Format := DinA4;

Ist das verständlich

[FredlFesl]

Verwende einen Typecast:

Delphi-Quellcode:

type
  TDIN_Format = (DinA4, DinA5);
var
  DIN_Format : TDIN_Format;
......
  DIN_Format = TDIN_Format(0); // <== DinA4;
  DIN_Format = TDIN_Format(5); // <== 5 geht zwar nicht, ist aber möglich, also aufgepasst!

[webcss]

Delphi-Quellcode:

type
TDIN_Format = (DinA4, DinA5);
var
DIN_Format : TDIN_Format;
......
i := integer(DIN_Format.DinA4); /// i = 0

[ATS3788]

Danke
Schönen 1.Mai