delphi - RTTIField.SetValueを使用してポインタをフィールドに設定します

原文 delphi field rtti

タイプがあります:

TControlPointer = ^TControl;

そしてクラスのプライベートフィールド:

TMyClass = class(TObject)
  private
  FPointer : TControlPointer;
end;

RTTIを使用してFPointerの値を設定しようとすると、次のようになります。

procedure SetControlPointer(pControl : TControlPointer);
[...]
RTTIField.SetValue(Self,pControl);

コンパイラは言う
[dcc32エラー] myunit.pas(xxx):E2010互換性のないタイプ: 'TValue'および 'TControlPointer'

何か案は？

ありがとうございました

答え

エラーは単に、RTTIField.SetValueがTValueが渡されることを期待していることを示しています。したがって、ポインタをTValueに入れるだけでよいと思います

TValue.From<TControlPointer>(Self.pControl)

それがRTTIField.SetValueに渡されるものです。

おそらくコンパイラにタイプを推測させて、単純に書くことができます

TValue.From(Self.pControl)

関連記事