掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TObjectList内の各オブジェクトのプロパティへアクセスするには? (ID:27938)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
再度、お世話になります。 Delphiをはじめて間もないものです。 クラスTFooがあり、そのプライベートフィールドFVarはプロパティ Varで読み書きするものとします。 次に、このクラスTFooを格納するクラスをTObjectListを継承して 作成し、それをTFooListとします。 TFooList = Class(TObjectList) TFooListの各オブジェクトはItemプロパティで取得できますが、 各オブジェクトのプロパティへアクセスするにはどのようにした らよろしいでしょうか? 現在、下記のようにしています。 ===TFooListの一部=== var FFooBuf: TFoo; : : private function GetVar(Index: Integer): Integer; public constructor Create; property Var[Index: Integer]: read GetVar; : : constructor TFooList.Create; begin FFooBuf := TFoo.Create; end; function TFooList.GetVar(Index: Index): Integer; begin FFooBuf := Item[Index]; Result := FFooBuf.Var; end; TFooList内のFooのプロパティから取得 VarBuf := FooList.GetVar[0]; たとえば、下記のようにしたいのですが。 VarBuf := FooList.Item[0].Var; 理由としては、下記があります。 (1)実際のTFooには多くのフィールドがある。 (2)実際のTFooは階層的にクラスを包含していて、包含 しているクラスにもアクセスしたい。 <説明> TFoo <- TBoo <- TPoo TBooはTPooを包含していて、さらにTFooはTBooを包含 している。TFooListからTPooのプロパティにもアクセス したい。 稚拙な質問で申し訳ありませんが、ご教授のほど、よろしく お願いいたします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.