delpi中的RTTI初试

本文介绍了 Delphi 中的运行时类型信息 (RTTI) 功能,并通过实例演示了如何使用 RTTI 获取类的属性列表、方法列表以及读取和设置属性值。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

java中的反射机制使我们能够在运行期间获取运行期类的信息,那么在delphi中有没有这样的功能呢?答案是有,实现这种功能的机制在delphi中叫做RTTI,废话少说,先来一段demo:

 

1.先定义一个demo类,注意这个类必须要以TPersistent为基类,代码如下:

unit Unit2;

interface
{ TDemo }

uses  Classes ;

type

  TDemo = class(TPersistent)
  private

  protected

  public
    FName : string;
    FAge : Integer;
    constructor Create;
    destructor Destroy; override;
  published
    property Name : string read FName write FName;
    property Age : Integer read FAge write FAge;
  end;

implementation

{ TDemo }

constructor TDemo.Create;
begin
  FName := 'peirenlei';
end;

destructor TDemo.Destroy;
begin

  inherited;
end;

end.

 

  

 

2.接下来,创建一个这个类的实例:

  ADemo := TDemo.Create;

   ADemo.Name := 'peirenlei';
   ADemo.Age := 0;

 

 

3.获取该实例的属性列表:

var
  APropList:PPropList;
  ATypeInfo:PTypeInfo;
  AClasDateInfo:PTypeData;
  I : Integer;
begin
  ATypeInfo := ADemo.ClassInfo;
  AClasDateInfo := GetTypeData(ATypeInfo);
  if AClasDateInfo.PropCount <> 0 then
  begin
  //分配空间
    GetMem(APropList,sizeof(PPropInfo)*AClasDateInfo.PropCount);
    try
      GetPropInfos(ADemo.ClassInfo,APropList);  //得到类的属性列表
      for I := 0 to AClasDateInfo.PropCount - 1 do
      begin
        if APropList[I]^.PropType^.Kind <> tkMethod then
          mmo.Lines.Add(Format('%s:%s',[APropList[I]^.Name,APropList[I]^.PropType^.Name]));        
      end;
        
    finally
      FreeMem(APropList,sizeof(APropList)*AClasDateInfo.PropCount); 
    end;
  end;
end;

    输出:   

Name:string
Age:Integer

 

 

3. 获取类的方法列表:

var
  APropList:PPropList;
  ATypeInfo:PTypeInfo;
  AClasDateInfo:PTypeData;
  I ,NumPro : Integer;
begin
  ATypeInfo := ADemo.ClassInfo;
  AClasDateInfo := GetTypeData(ATypeInfo);
  if AClasDateInfo.PropCount <> 0 then
  begin
  //分配空间
    GetMem(APropList,sizeof(PPropInfo)*AClasDateInfo.PropCount);

    try
      NumPro := GetPropList(ADemo.ClassInfo,[tkMethod],APropList);
      if NumPro <> 0 then
      begin
         mmo.Lines.Add('-----events-------');
         for I := 0 to NumPro - 1 do //获得事件属性的列表
         begin
           mmo.Lines.Add(Format('%s:%s',[APropList[i]^.Name,APropList[i]^.PropType^.Name]));
         end;
      end;
    finally
      FreeMem(APropList,sizeof(PPropInfo)*AClasDateInfo.PropCount);
    end;
  end;
end;

 

4.获取实例类的属性和属性值:

var
  AProperInfo:PPropInfo;
  AValue:string;
begin
  AValue := GetPropValue(ADemo,'Name');
  mmo.Lines.Add('Name='+AValue);

  AValue := GetPropValue(ADemo,'Age');
  mmo.Lines.Add('Age='+AValue);

  SetPropValue(ADemo,'Name','zengzhen');
  SetPropValue(ADemo,'Age',100);
  AValue := GetPropValue(ADemo,'Name');
  mmo.Lines.Add('Name='+AValue);

  AValue := GetPropValue(ADemo,'Age');
  mmo.Lines.Add('Age='+AValue);
  
end;

 

  输出:

Name=peirenlei
Age=0
Name=zengzhen
Age=100

 

标题基于PHP + JavaScript的助眠小程序设计与实现AI更换标题第1章引言介绍助眠小程序的研究背景、意义,以及论文的研究内容和创新点。1.1研究背景与意义阐述助眠小程序在当前社会的重要性和应用价值。1.2国内外研究现状分析国内外在助眠小程序方面的研究进展及现状。1.3论文研究内容与创新点概述论文的主要研究内容和创新之处。第2章相关理论基础介绍助眠小程序设计与实现所涉及的相关理论基础。2.1PHP编程技术阐述PHP编程技术的基本概念、特点和在助眠小程序中的应用。2.2JavaScript编程技术介绍JavaScript编程技术的核心思想、作用及在小程序中的实现方式。2.3小程序设计原理讲解小程序的设计原则、架构和关键技术。第3章助眠小程序需求分析对助眠小程序进行详细的需求分析,为后续设计与实现奠定基础。3.1用户需求调研用户需求调研的过程和方法,总结用户需求。3.2功能需求分析根据用户需求,分析并确定助眠小程序的核心功能和辅助功能。3.3性能需求分析明确助眠小程序在性能方面的要求,如响应速度、稳定性等。第4章助眠小程序设计详细阐述助眠小程序的设计方案,包括整体架构、功能模块和界面设计。4.1整体架构设计给出助眠小程序的整体架构设计思路和实现方案。4.2功能模块设计详细介绍各个功能模块的设计思路和实现方法。4.3界面设计阐述助眠小程序的界面设计风格、布局和交互设计。第5章助眠小程序实现与测试讲解助眠小程序的实现过程,并进行详细的测试与分析。5.1开发环境搭建与配置介绍开发环境的搭建过程和相关配置信息。5.2代码实现与优化详细阐述助眠小程序的代码实现过程,包括关键技术的运用和优化措施。5.3测试与性能分析对助眠小程序进行全面的测试,包括功能测试、性能测试等,并分析测试结果。第6章结论与展望总结论文的研究成果,展望未来的研究方向和应用前景。6.1研究成果总结概括性地总结论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值