Si le but est d'obtenir une représentation sous forme de chaîne d'une valeur d'un type énuméré il est aussi possible d'utiliser WriteStr.



var
O : TPrinterOrientation;
S : String;
begin...