How to clear multiple edit controls without having to refer to them one by one

[bholas]

So your new form has 40 edit controls, and now you're looking for a quick and easy way to clear all of them without having to refer to them one by one. How about using a function like this:

procedure TForm1.****on1Click(Sender: TObject); var i : integer; begin for i := 0 to ComponentCount-1 do begin if( Components[ i ] is TEdit )then begin (Components[ i ] as TEdit).Text := ''; end; end; end;

Similar Threads:

• Which Table to refer for knowing monthly eligibile accrued allowance amount
• What exactly can the Rich Edit Control do anyway?
• Facebook's new privacy controls
• How can we create custom controls in ASP.NET?
• ASP.NET server controls vs. HTML controls