Texte für Enumerationen 

Name

Zweck

Methode

Rückgabewert

Beispiel

enumToString

Gibt den symbolischen Namen von value als Text zurück.

enumToString(value:, format:string = „g“):string;

• Gibt den symbolischen Namen von value als Text zurück. Als Formatangabe kann „g“, „G“, „d“, „D“, „x“ und „X“ angegeben werden. Sollte das Format leer sein, wird „g“ verwendet.

       Formatangaben:

• „g“, „G“: Gibt den symbolischen Namen von value zurück. Falls mehrere symbolische Namen mit dem gleichen Wert existieren, ist undefiniert, welcher davon zurückgegeben wird. Existiert kein solcher Name, wird der numerische Wert in Dezimaldarstellung zurückgegeben (siehe Format „d“).

• „d“, „D“: Gibt den Wert von value in Dezimaldarstellung zurück.

• „x“, „X“: Gibt den Wert von value in Hexadezimaldarstellung zurück. Das Ergebnis hat 8 Stellen und wird ggfs. Um führende Nullen ergänzt (es wird KEIN führendes „0x“ vorangestellt). Bei „x“ wird a-f, bei „X“ A-F für die hexadezimalen Ziffern verwendet.  

String: Text von value
                               

Beispiel für beide Funktionen
: enumToString; enumStrings

var

 func:FuncEnum;
 r:namedindexarray;
 i:integer;

begin
 func:=FuncH_of_PT;
 println(enumtostring(func));
 func:=FuncHg_OF_Pfg;
 println(enumtostring(func));
 println(enumtostring(FuncEnum(15)));

 func:=FuncXG_OF_PT;
 println("Hexadecimal value of ", enumtostring(func)," is = ",enumtostring(func, "X"));
 
 // get all entries and print out
 println("All entries of FuncEnum:");
 r:=enumstrings(FuncEnum);
 for i:=low(r) to high(r) do
 begin
       println(r[i].name, ":", r[i].index);
 end;
end;

enumStrings
(<enumerations-type>)

Gibt ein dynamisches Array aller symbolischen Namen mit ihrem jeweiligen Wert zurück. Der Typ namedindexarray ist in der unit @System definiert.

enumStrings: namedindexarray;