Tipo por string

Delphi

23/02/2006

Pessoal tenho o seguinte:

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



depois tenho uma função que recebe 2 strings
OP.codigo:= strtoint(string1);
OP.Operacao:= string2; <- aqui não funciona

pois [b:5422f282da]Incompatible types: ´TTipoOperacao´ and ´string´[/b:5422f282da]


Sistemald

Sistemald

Curtidas 0

Respostas

_rodfaria_

_rodfaria_

23/02/2006

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

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


GOSTEI 0
Sistemald

Sistemald

23/02/2006

oi,

valeu, era isso mesmo que eu queria.

lembre-se que tem que declarar [b:1be6ae66cb]TypInfo[/b:1be6ae66cb].

valeu!


GOSTEI 0
POSTAR