как организовать цикл по Edit

← →
ceval (2004-08-02 19:57) [0]

Подскажите как организовать цикл по Edit
Например у меня есть 11 Edit"ов и принажатии
кнопки нужно очистить их все
Большое спасибо!!

← →
GuAV © (2004-08-02 20:03) [1]

Ну например так, только это для четырех:

procedure ClearEdits(const C: array of TEdit);
var I: Integer;
begin
for I:=0 to High(C) do
C[I].Text:="";
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
ClearEdits([Edit1,Edit2,Edit3,Edit4,Edit5,
Edit6,Edit7,Edit8,Edit9,Edit10,Edit11]);
end;

← →
Rem (2004-08-02 20:07) [2]

for i := 0 to ControlCountCount - 1 do
if (Controls[i] is TEdit) then
TEdit(Controls[i]).Text := 0;

← →
ceval (2004-08-02 20:12) [3]

Большое спасибо за помощь !!!

как организовать цикл по Edit Найти похожие ветки