Shorter Code for Clear function.. Help.. 1

[beginner81]

Hello forums.. i wonder is that anyway for me to using a single code to clear all the fields in a form after i click at the Clear button?? ... instead of putting the code like TEdit1.Clear; TEdit2.Clear; TEdit3.Clear.. is that anyway for me to do so?? thx ..

 

[Griffyn]

You could try something akin to the following code snippet:

var
LoopX : Integer;
begin
for LoopX = 0 to Form1.ControlCount do
if Form1.Controls[LoopX] is TEdit then
(Form1.Controls[LoopX] as TEdit).Clear;
end;

 

[Griffyn]

Whoops, change

for LoopX = 0 to Form1.ControlCount do

to

for LoopX = 0 to Form1.ControlCount - 1 do

 

[beginner81]

hey thx mates.. ur help is appreciate..