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;