掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
動的なメモリの確保をするには (ID：21962)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ママんさんも古くからのDelphi使いっぽいですね。 私もpointerでいいような気もしますが クラスするのも、アリなのではないかと 思いますので、紹介します。 PDataAに相当する TObjectを継承したクラスを作成 TDataA = class aaa: string; bbb: string; end; TListEx = class(TList) function GetItems(index: integer): TDataA; function Add: TDataA; property Items[index: integer]: TDataA read GetITems; end; クラスなので TDataA = class aaa: TStringList; bbb: string; constructor Create; end; のようにしてコンストラクタで初期化もできます constructor TDataA.Create; begin aaa:= TStringList.Create; end; こんなことも。 FList: TListEx; var a: TDataA; begin a:= FList.Add; a.aaa.CommaText:='aaa,bbb,ccc'; writeln( a.aaa[0]); end; TPersistentあたりも調べてみるといいかも。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.