短縮するには？

解決

---

はじめまして、はまやともします。
 Edit1.Font.Size:=13;
 Edit1.Font.Style:=[fsBold];
      〜
 Edit50.Font.Size:=13;
 Edit50.Font.Style:=[fsBold];
Edit1からEdit50までフォントサイズ、太字を変更して表示して使いたいのですが
２，３行でおさめる方法がありましたら教えてください

編集    削除

---

For i:=1 to 50 do
  with TEdit(FindComponent('Edit'+inttostr(i))).Font do
  begin
    Size:=13;
    Style:=[fsBold];
  end;

編集    削除

---

*さん
有難う御座います。
解決しました。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。