| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Присвоение значений Edit через цикл [D6, WinXP]

Страницы:   < 1 2 >

Леха ©   (2005-05-31 16:35:00) 

Вот уверен простая задачка, которую многие из вас решили. Подскажите как решается, если не трудно. Что достаточно использовать цикл или и цикл и массив.
На форме имеется напр. 3 edit'a
edit1, edit2, edit3.
Как по нажатию на кнопку обнулить Edit*.text у всех.
Я, пока не понял.

---

BFG9k   (2005-05-31 16:39:00) [21]


for i:=0 to ComponentCount-1 do
 if Components[i] is TEdit then
   (Components[i] as TEdit).Text:='';



---

_dimka   (2005-05-31 16:39:00) [22]

Ну например так :
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=0 to Form1.ControlCount-1 do
if Form1.Components[i] is TEdit then (Form1.Components[i] as TEdit).Text:='';
end;

---

Страницы:   < 1 2 >

Наверх