短縮するには？

解決

はまや 2003-11-04 06:26:54 No: 5568

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

＊ 2003-11-04 06:37:40 No: 5569

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

はま 2003-11-05 05:57:58 No: 5570

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