چطور می شه متن تموم ادیت های موجود رو فرم رو تغییر داد؟

[shedayat]

سلام دوستان. خسته نباشید. اگه سوالم یه کم تکراریه ببخشید. من خواستم جستجو کنم ولی یه کلمه کلیدی که بتونم به جوابم برسم پیدا نکردم. :لبخند:
سوال من اینه که مثلا فرض کنید توی یه فرم 10 تا کنترل edit داریم حالا می خوایم متن همه ی اونها رو به صورت یک جا عوض کنیم. توی vb یه دستور For each .... بود. ولی برای دلفی نمی دونم چه دستوری باید بنویسن. اگه می شه راهنماییم کنید.
ممنون از همگی. :قلب:

[جواد ملاولی]

سلام.




with Form1 do
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
TEdit(Components[I]).Text := 'متن شما'

[Felony]

سلام دوستان. خسته نباشید. اگه سوالم یه کم تکراریه ببخشید. من خواستم جستجو کنم ولی یه کلمه کلیدی که بتونم به جوابم برسم پیدا نکردم. :لبخند:
سوال من اینه که مثلا فرض کنید توی یه فرم 10 تا کنترل edit داریم حالا می خوایم متن همه ی اونها رو به صورت یک جا عوض کنیم. توی vb یه دستور For each .... بود. ولی برای دلفی نمی دونم چه دستوری باید بنویسن. اگه می شه راهنماییم کنید.
ممنون از همگی. :قلب:
معادل for each در دلفی for in هست ، کد مورد نظرتون به شکل زیر نوشته میشه :


var
E: TComponent;
begin
for E in Self do
if E is TEdit then
TEdit(E).Text:= 'Love Delphi';
end;

* البته for in از نسخه 2009 به بعد به دلفی اضافه شد .