zoukankan      html  css  js  c++  java
  • Delphi 2010 新增功能之: Rtti 单元(1)


    通过 Rtti 单元的 TRttiContext(是个 record), 可以方便地获取类的方法、属性、字段的列表.

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Memo1: TMemo;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        Button5: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses Rtti;
    
    //TRttiContext.GetTypes
    procedure TForm1.Button1Click(Sender: TObject);
    var
      ctx: TRttiContext;
      t: TRttiType;
    begin
      Memo1.Clear;
      for t in ctx.GetTypes do Memo1.Lines.Add(t.Name);
    end;
    
    //获取 TButton 类的方法
    procedure TForm1.Button2Click(Sender: TObject);
    var
      ctx: TRttiContext;
      t: TRttiType;
      m: TRttiMethod;
    begin
      Memo1.Clear;
      t := ctx.GetType(TButton);
      //for m in t.GetMethods do Memo1.Lines.Add(m.Name);
      for m in t.GetMethods do Memo1.Lines.Add(m.ToString);
    end;
    
    //获取 TButton 类的属性
    procedure TForm1.Button3Click(Sender: TObject);
    var
      ctx: TRttiContext;
      t: TRttiType;
      p: TRttiProperty;
    begin
      Memo1.Clear;
      t := ctx.GetType(TButton);
      //for p in t.GetProperties do Memo1.Lines.Add(p.Name);
      for p in t.GetProperties do Memo1.Lines.Add(p.ToString);
    end;
    
    //获取 TButton 类的字段
    procedure TForm1.Button4Click(Sender: TObject);
    var
      ctx: TRttiContext;
      t: TRttiType;
      f: TRttiField;
    begin
      Memo1.Clear;
      t := ctx.GetType(TButton);
      //for f in t.GetFields do Memo1.Lines.Add(f.Name);
      for f in t.GetFields do Memo1.Lines.Add(f.ToString);
    end;
    
    //获取获取 TButton 类的方法集合、属性集合、字段集合
    procedure TForm1.Button5Click(Sender: TObject);
    var
      ctx: TRttiContext;
      t: TRttiType;
      ms: TArray<TRttiMethod>;
      ps: TArray<TRttiProperty>;
      fs: TArray<TRttiField>;
    begin
      Memo1.Clear;
      t := ctx.GetType(TButton);
    
      ms := t.GetMethods;
      ps := t.GetProperties;
      fs := t.GetFields;
    
      Memo1.Lines.Add(Format('%s 类共有 %d 个方法', [t.Name, Length(ms)]));
      Memo1.Lines.Add(Format('%s 类共有 %d 个属性', [t.Name, Length(ps)]));
      Memo1.Lines.Add(Format('%s 类共有 %d 个字段', [t.Name, Length(fs)]));
    end;
    
    end.
    
  • 相关阅读:
    Windows10安装Oracle19c数据库详细记录(图文详解)
    构建 FTP 文件传输服务器
    构建 Samba 文件共享服务器
    Linux磁盘配额(xfs)
    Linux配置磁盘配额(ext4)
    Linux 制作ISO镜像
    Linux磁盘分区
    用户和文件权限管理命令的使用(实验)
    CentOS7 配置yum源
    VMware CentOS 7 安装(vmware的版本15.5)
  • 原文地址:https://www.cnblogs.com/del/p/1583969.html
Copyright © 2011-2022 走看看