Delphi 2010 新增功能之: Rtti 单元(4): TRttiRecordType

最新推荐文章于 2023-02-17 15:49:53 发布

weixin_33860737

最新推荐文章于 2023-02-17 15:49:53 发布

阅读量177

点赞数

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/319465

本文深入探讨了使用TRttiRecordType读取TPoint结构信息的过程，从架构师的角度出发，详细剖析了如何通过Rtti实现结构体的属性、方法和字段的获取，提供了一种高效理解复杂代码结构的方法。

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

为什么80%的码农都做不了架构师？>>>

下面以 TPoint 为例, 用 TRttiRecordType 读取了结构的信息.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Rtti;

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TRttiRecordType;
  f: TRttiField;
begin
  Memo1.Clear;
  t := TRttiContext.Create.GetType(TypeInfo(TPoint)).AsRecord;
  Memo1.Lines.Add(t.QualifiedName);
  Memo1.Lines.Add(Format('Size: %d', [t.TypeSize]));
  Memo1.Lines.Add(EmptyStr);

  Memo1.Lines.Add(Format('字段数: %d', [Length(t.GetFields)]));
  Memo1.Lines.Add(Format('方法数: %d', [Length(t.GetMethods)]));
  Memo1.Lines.Add(Format('属性数: %d', [Length(t.GetProperties)]));
  Memo1.Lines.Add(EmptyStr);

  Memo1.Lines.Add('全部字段:');
  for f in t.GetFields do Memo1.Lines.Add(f.ToString);
end;

end.

转载于:https://my.oschina.net/hermer/blog/319465