なぜ集合型プロパティにはIncludeは使えないのか

解決

Fusa URL 2008-02-20 15:52:30 No: 29849 IP: 192.*.*.*

ふとした疑問です。

procedure TForm1.Button1Click(Sender: TObject);
begin
  if fsBold in Label1.Font.Style then
  begin
    Label1.Font.Style := Label1.Font.Style - [fsBold];
//    Include(Label1.Font.Style, fsBold);
  end else
  begin
    Label1.Font.Style := Label1.Font.Style + [fsBold];
  end;
end;

なぜか、コメントアウトしている行をコンパイルしようとすると
[DCC エラー] …: E2064 代入できない左辺値です
というエラーになってしまいます。

今更ですが、Includeはどうして集合型プロパティに対して
実行できないのでしょうか？

集合型変数には使えるけど
集合型プロパティには使えない
IncludeやExclude指令は存在意味があるんでしょうか？

編集削除

風来坊 2008-02-20 21:40:59 No: 29850 IP: 192.*.*.*

第１引数が参照渡しだからかなぁ…

THoge = class
private
  function Get: Integer;
  procedure Put(Value: Integer);
public
  property Foo: Integer read Get write Put;
end;

プロパティはこんな感じだったりするので参照渡しができないんじゃないかと？
Inc(Form1.Width) なんてのも怒られますからね。

まぁ、存在意味があるかどうかは別として…
Include, Exclude は自分ではよく使う。

編集削除

Fusa 2008-02-21 13:04:14 No: 29851 IP: 192.*.*.*

ああ、そうか。
なるほど。そういえばそうですね。

私もIncludeは結構好きなのですが
同じ集合型として同じ記述方法ができたらいいなと
思ったのですが、難しそうですね。

ありがとうございます。

編集削除