メソッドを無効にしたい (ID:34998)

名前

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

本文 > inherited Add(Item); inheritedというのは，元のコードを実行するものです． これではAddは無効になりません． 完全無効にするのであれば， procedure TListEx.Add(Item: Pointer); begin // end; でしょうか．無効なのでfunctionにする必要がないなら． count値を取得したいなら，functionで， Result := count; でしょうか．TListのAdd関数はvirtualでもdynamicでもないので，コードは自由です． 引数なしも，引数のリストの変更も自由です． 参考までに，元が関数の時は，その元の関数値を取得するのは Result := inherited Add(Item); ですね．inheritedが元の関数ですから．