Скачать: CL | DM;

Очень много TEdit на форме как бы их всех очистить   Найти похожие ветки 

← →
OlegM ©   (2003-10-28 07:35) [0]

Привет всем!
Короче их штук 100 надо бы по нажатию на кнопку очистить их всех
Но писать так
edit1.text:="";
...
edit100.text:="";
Как то много, можно ли это сделать покороче? Если можно то как?

---

← →
Hooch ©   (2003-10-28 07:46) [1]

перебор дочерних компонентов

for i:=0 to Form.ControlCount-1 do
if Form.Control[i] is TEdit then
TEdit(Form.Control[i]).Text := "";

---

← →
Hooch ©   (2003-10-28 07:50) [2]

точнее контролов :-)

---

← →
OlegM ©   (2003-10-28 08:10) [3]

Хе, а не робит ненаходит ни одного

---

← →
Blunder   (2003-10-28 08:18) [4]

for count := 0 to ComponentCount - 1 do
begin
if Components[count] is TEdit then
(Components[count] as TEdit).Clear;
if Components[count] is TComboBox then
(Components[count] as TComboBox).Clear;
end;

общий пример для 2х разных компонентов для понятности
count: integer

---

← →
Hooch ©   (2003-10-28 08:25) [5]

> Хе, а не робит ненаходит ни одного


тогда либо рекурсия, либо как показал Blunder

---

← →
OlegM ©   (2003-10-28 08:33) [6]

Спасибочки огромное

---

← →
Anatoly Podgoretsky ©   (2003-10-28 09:10) [7]

OlegM © (28.10.03 08:10) [3]
Это значит, что на Form у тебя их нет ни одного

---

← →
Regis ©   (2003-11-05 00:15) [8]

Так если все edit1..edit100 то

for i := 1 to 100 do
with Edit(FindComponent("Edit"+IntToStr(i))) do
text := "";

Всё.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c