<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="max-age=180,private" />
</head>
<card id="discuz_wml" title="CnPack Forum">
<p>#1 问一个和专家包不相关的问题<br /><small>在其他的几个论坛发了贴，没人答复，来这里试试。<br />
<br />
procedure TForm1.Button1Click(Sender: TObject);<br />
var<br />
  t: TRttiOrdinalType;<br />
begin<br />
  Memo1.Clear;<br />
<br />
  //先从类型名获取类型信息对象<br />
  t := TRttiContext.Create.GetType(TypeInfo(Byte)) as TRttiOrdinalType;<br />
  Memo1.Lines.Add(Format('%s - %s', [t.Name, t.QualifiedName]));<br />
  Memo1.Lines.Add(Format('Size: %d', [t.TypeSize]));<br />
  Memo1.Lines.Add('QualifiedName: ' + t.QualifiedName);<br />
  Memo1.Lines.Add(Format(' ..</small><br />
</p>
<p>#1 <a href="index.php?action=thread&amp;tid=11289&amp;start=0&amp;offset=497&amp;sid=3ZDt8Z">&gt;&gt;Next Page</a><br />
<br />Forum:<a href="index.php?action=forum&amp;fid=8&amp;sid=3ZDt8Z">CnPack IDE 专家包（CnW ...</a>
<br />Thread:<a href="index.php?action=thread&amp;tid=11289&amp;sid=3ZDt8Z">问一个和专家包不相关 ...</a>
<br />Next Thread:<a href="index.php?action=thread&amp;tid=11284&amp;sid=3ZDt8Z">代码输入提示问题！ ...</a>
</p>
<p align="center"><br /><a href="index.php?sid=3ZDt8Z">Home</a><br />
<a href="index.php?action=login&amp;sid=">Login</a><br /><br />
<small>Powered by Discuz!</small></p>
</card>
</wml>