Очень много 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]

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

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

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

Всё.

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