レコード型のプロパティにアクセスするには (ID:39512)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 レコード型のプロパティに直接アクセスすると「代入できない左辺値です」というエラーメッセージが出てコンパイルできません。 type TPair = record private FA: string; FB: string; public property a: string read FA write FA; property b: string read FB write FB; end; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private FPair: TPair; public property pair: TPair read FPair write FPair; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin pair.a := 'test'; end; 上記のような代入はできないのでしょうか？ 下記のように一度レコード型を宣言してから代入すると可能なのですが、かなり面倒です。 var tmpPair: TPair; begin tmpPair.a := 'test'; pair := tmpPair; 何かよい方法があればお教え下さい。