Algumas vezes precisamos salvar informações de propriedades enumeradas
no banco de dados.
Uma forma de fazer isso é converter o Enum para Integer.
Mas como fazer?
Utilizar a função Ord!
Veja o exemplo:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ... type TMyType = (mtFirst, mtSecond, mtThird); var ordValue:integer; enumValue:TMyType; ... procedure TForm1.Button1Click(Sender: TObject); begin ordValue:= Ord(mtSecond); // result is 1 ShowMessage(ordValue.ToString); end; |
