掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メソッドを無効にしたい (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が元の関数ですから.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.