2011年5月6日
获取枚举类型的字符串
摘要： uses TypInfo; procedure TfrmMain.actFormatExecute(Sender: TObject); var lvDataType :TTypeKind; begin lvDataType := tkUnknown; ShowMessage(getenumname(typeinfo(TTypeKind), Ord(lvDataType))); 阅读全文
posted @ 2011-05-06 16:06 D10.天地弦 阅读(284) 评论(0) 推荐(0)