掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
For each文 (ID:14975)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ワイルドカードは使用できません TagとかNameで工夫したほうが良いでしょう procedure TForm1.Button1Click(Sender: TObject); var i :Integer; begin for i := 0 to ControlCount -1 do begin if Components[i] is TEdit then//該当コンポーネントがTEditか判断 begin //条件に合ったコンポーネントを初期化(全てだったらいらないけど) //例えば //if (Components[i] as TEdit).Tag = 1 then //(一括で初期化したいEditのTagを1にしておく) //Nameで判断(Name付けに特定のルールを・・・) if (Components[i] as TEdit).Name = 'Edit' + IntToStr(i +1) then begin (Components[i] as TEdit).Text := ''; end; end; end; end; かな
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.