掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ラベルエディットにて。数字がマイナスの時文字を赤くするには？ (ID：5146)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
コンポーネント（オブジェクト）の配列は、例えば... type TForm1 = class(TForm) : private { Private 宣言 } FLblEdits : Array [0..4] of TLabeledEdit; public { Public 宣言 } end; procedure TForm1.FormCreate(Sender: TObject); begin // 各ラベルエディットを配列に設定 FLblEdit[0] := LabeledEdit1; FLblEdit[1] := LabeledEdit2; FLblEdit[2] := LabeledEdit3; FLblEdit[3] := LabeledEdit4; FLblEdit[4] := LabeledEdit5; end; // ラベルエディットのTextを一括設定する処理 begin : For i := 0 to 4 do begin FLblEdit[i].Text := Format("%f",[Data[i]]); end; : end; のようにForループでコンポーネントを一括設定する場合などに使うと便利です。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.