Leonardo M. Ramé schrieb:

TMyType = (mtOne, mtTwo, mtThree);

var lMyType: TMyType;

begin lMyType := TMyType(GetEnumValue(TypeInfo(TMyType), 'mtTwo')); // lMyType is 1 instead of "mtTwo"

How do you know? Since ord(mtTwo)=1, you seem to be fooled by the debugger.

DoDi

_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel

Reply via email to