function GetTypeData(TypeInfo: PTypeInfo): PTypeData; asm { -> EAX Pointer to type info } { <- EAX Pointer to type data } { it's really just to skip the kind and the name } XOR EDX,EDX MOV DL,[EAX].TTypeInfo.Name.Byte[0] LEA EAX,[EAX].TTypeInfo.Name[EDX+1] end; 好难呀 这都能编译 BORLAND太强大了!
----------------------------------------------