Tipo por string

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

Respostas

23/02/2006

_rodfaria_

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

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


Responder Citar

24/02/2006

Sistemald

oi,

valeu, era isso mesmo que eu queria.

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

valeu!


Responder Citar