Очистака компонентов от текста.

← →
zolotov (2003-05-02 17:59) [0]

Ув. мастера, подскажите, пожалуйста, как сделать, чтобы при нажатии кнопки очищался текст во всех Edit"ах, ComboBox"ах и т.д. одновременно. Можно, конечно, написать, чтобы каждый компонент очищался (Edit1.Clear; Edit2.Clear и т.д.). Но, это не совсем удобно, особенно если моного Edit"ов и ComboBox"ов на форме.

Заранее, спасибо.

← →
Fenik © (2003-05-02 20:46) [1]

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i := 0 to ComponentCount - 1 do begin
if Components[i] is TComboBox then (Components[i] as TComboBox).Text := ""
else
if Components[i] is TEdit then (Components[i] as TEdit).Text := "";
end;
end;

← →
zolotov (2003-05-03 15:53) [2]

Спасибо большое.

Очистака компонентов от текста. Найти похожие ветки