掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Component配列？ (ID:7053)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
jokさん、Lupin3さん迅速な御教示をありがとうございました。 こんなこと考えてました↓(笑ってやって下さい。)(^^; procedure TForm1.FormCreate(Sender: TObject); var i:integer; S,Sb:string; begin for i:=0 to componentcount-1 do begin Sb:=components[i].Name; S:=leftstr(Sb,10); if s='ToolButton' then begin S:=rightstr(Sb,length(Sb)-10); components[i+1].tag:=strtoint(S); end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.