自作クラス作成Tips ー自作クラスにレコード型のプロパティを持たせる時の注意

2021年1月14日Delphi,Programing

自作クラスにレコードプロパティを実装したいという場面は結構あるはずです。
ただ、実装時にはいくつか注意しなければならないことがあります。

Contents

1. レコードプロパティのメンバに代入するときの問題
- 1.1. レコードにプロパティを用意する

レコードプロパティのメンバに代入するときの問題

例えば次のような実装の時

  TTsrRec = record
Name  : string;
No    : Integer;
end;
TTscData = class(TObject)
private
FRec  : TTsrRec;
published
property Rec  : TTsrRec read FRec write FRec;
end;

TTscDataクラスのRecプロパティに値を書き込みたい場合、どうなるでしょうか。

procedure TForm3.FormCreate(Sender: TObject);
var
data  : TTscData;
begin
data  := TTscData.Create;
data.Rec.Name := 'Test';
data.Rec.No   := 1;
end;

実はこれ、コンパイルできません。
E2064エラーがでます。代入できないんですね。
上のような実装をした場合、これに値を書き込みたい場合はこうなります。

procedure TForm3.FormCreate(Sender: TObject);
var
data  : TTscData;
rec   : TTsrRec;
begin
rec.Name  := 'Test';
rec.No    := 1;
data  := TTscData.Create;
data.Rec  := rec;
end;

実装内容や仕様によっては、この使い方でも問題ないでしょうが
できればレコードのメンバに直接書き込みたいなと思うことも多いでしょう。
ではどうすればいいのか。

レコードを拡張すればいいんです。
Delphiのレコード型はクラス方のような実装ができます。

レコードにプロパティを用意する

レコードの実装を少々変更しました。

type
TTsrRec = record
private
FName : string;
FNo   : Integer;
procedure SetName(name:string);
procedure SetNo(no:integer);
public
property Name : string
read FName write SetName;
property No   : Integer
read FNo write SetNo;
end;
implementation
procedure TTsrRec.SetName(name:string);
begin
FName := name;
end;
procedure TTsrRec.SetNo(no:Integer);
begin
FNo := no;
end;