E2133 TYPEINFO には型情報を持つ型が必要です (Delphi)

エラーと警告のメッセージ（Delphi） への移動

型を表していない識別子について型情報を入手しようとしました。

program Produce;

  var
    p : Pointer;

  procedure NotType;
  begin
  end;


begin
  p := TypeInfo(NotType);
end.

{ TypeInfo 標準手続きにはパラメータとして型識別子が必要である。このコードでは NotType は型識別子を表していない }

program Solve;

  type
    Base = class
    end;

  var
    p : Pointer;

begin
  p := TypeInfo(Base);
end.

{ TypeInfo に使用するパラメータを型識別子にすれば，このエラーを回避できる }