掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ラベルエディットでSubLabelのCaptionをForで表示するには？ (ID:5623)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になっております。 ラベルエディットの入力(Text)部分をテキストファイルから自動的に読込む ソースを以前教えていただきました。 procedure TForm7.FormCreate(Sender: TObject); var fn:string; filelist:tstringlist; i:integer; begin filelist:=tstringlist.Create; try fn:='c:\試作２\le_name.txt'; filelist.LoadFromFile(fn); for i:= 1 to 75 do TEdit(form7.findcomponent('labelededit'+inttostr (i))).text:=filelist[i-1]; finally filelist.free; end; end; 今回はText部分ではなく外側のCaption部分(LabeledEdit1.SubLabel) （実際は１から７５まで)をテキストファイルから読み込みたくて苦 戦しております。多分 ＞TEdit(form7.findcomponent('labelededit'+inttostr ＞(i))).text:=filelist[i-1]; ↑この部分だと思い考えられるコード ＞('labelededit'+inttostr(i)+'.SubLabel')).text とか ＞('labelededit'+inttostr(i)+'.EditLabel')).text とか ＞('labelededit'+inttostr(i)+'.SubLabel')).Caption とか を付け足して試してみたのですが表示できませんでした。 大変恐縮ですが分かる方いらっしゃいましたらご指導いただけますで しょうか。宜しくお願い申し上げます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.