掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
添え字を使用して動的にラベルを作成するには？ (ID:27538)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になります。 現在は、下記のようなソースで、ラベルを配列で定義し、 for ループで動的にラベルを作成し、 for ループで処理し（省略）、 for ループで解放しています。 ・問題点 予め、配列の最大値を array で定義している。 → 配列の最大値がもっと必要な場合が発生した場合どうするのか 実際にそんなに配列が必要なくても、余裕を持った配列の定義が必要 ・質問内容 (1)配列そのものを動的に作成できないのか？ (2)ラベルの配列を[0..10000]とか指定したらメモリ等を圧迫しないのか？ (3)別の方法で実現できないのか？ ※ComponentList を使用すれば出来そうらしいのですが、 検索方法が悪いらしく、それらしいHELPが見つかりません。 HELPの場所または使用方法を教えていただけないでしょうか？ 以上、よろしくお願いいたします。 ※以下、現在のソース(概要)です。 var Form1: TForm1; arLabel : array [0..100] of TLabel; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 1 to 10 do begin arLabel[i] := TLabel.Create(self); arLabel[i].Parent := self; arLabel[i].Left := i * 20; arLabel[i].Top := i * 20; arLabel[i].Caption := 'Label' + IntToStr(i); end; end; procedure TForm1.Button2Click(Sender: TObject); var i: Integer; begin for i := 1 to 10 do arLabel[i].Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.