Globally Clear Multiple Edit Boxes

[gforrest]

Hi,

I have 28 edit boxes on a form. I want to clear the Text property of all of them (eg. EditBox1.Text :=''). Is there a way to do this globally without having to reference each individual box?

Thanks.

 

[pencheff]

for I := 0 to ComponentCount -1 do
if Components is TEdit then
TEdit(Components).Text := '';

 

[alphonsus]

You can use Form's Components property as bellow:

procedure TForm1.ClearEdit;
var
j: Integer;
nComp : Integer;
begin
nComp := ComponentCount -1;
if nComp >= 0 then
begin
for j := 0 to nComp do
begin
if Components[j] is TEdit then
begin
(Components[j] as TEdit).Text := '';
end;
end;
end;
end;

If there are any TEdit in the Form that you don't want to clear, you can use the Tag property to identify them.

HTH,
Alphonsus.

 

[pencheff]

oops... correct my previous post to read


TEdit(Components).Text := '';