Array
(
)

Tipo por string

Sistemald
   - 23 fev 2006

Pessoal tenho o seguinte:

#Código

TTipoOperacao = (Inserir, alterar, excluir);
TOperacao = record
Operacao: TtipoOperacao;
codigo: integer;
end;



depois tenho uma função que recebe 2 strings
#Código

OP.codigo:= strtoint(string1);
OP.Operacao:= string2; <- aqui não funciona

pois Incompatible types: ´TTipoOperacao´ and ´string´


_rodfaria_
   - 23 fev 2006

http://delphi.about.com/cs/adptips2003/a/bltip0203_5.htm

OP.Operacao:= TTipoOperacao(GetEnumValue(TypeInfo(TTipoOperacao),string2));


Sistemald
   - 24 fev 2006

oi,

valeu, era isso mesmo que eu queria.

lembre-se que tem que declarar TypInfo.

valeu!