代码改变世界

Delphi Rtti 笔记

2011-12-13 23:04  一人游走  阅读(300)  评论(0)  编辑  收藏  举报 
uses
  Rtti;

procedure TForm1.btn1Click(Sender: TObject);
var
  ctx: TRttiContext;
begin
  ShowMessage(ctx
    .GetType(TButton)
    .GetProperty('Caption')
    .GetValue(Sender)
    .ToString); // 同 btn1.Caption， 输出: btn1
end;