(Solved)How To?

[JLWest]

   So the following code throws an error if i turn on the second line. 
Is there a way to make this work? I want to set the Text in TEdit.Text to TEdit1.Text := '';
I know that Tedit.Text will work but I have 50 TEdits on a form. Thus the loop to enable them and I need to clear the text property.

 

Code: Pascal  [Select][+][-]

1.  
2.  
3.      for i:= 0 to ComponentCount-1 do
4.         if Components[i] is TControl then begin
5.             TControl(Components[i]).Enabled:=True;
6.            TControl(Components[i]).text := '';                     { <===Error}
7.         end;
8.      end;                  
9.  
10.  

Thanks

[bytebites]

Code: Pascal  [Select][+][-]

1.      for i:= 0 to ComponentCount-1 do
2.         if Components[i] is TEdit then begin
3.             TControl(Components[i]).Enabled:=True;
4.             TEdit(Components[i]).text := '';                    
5.         end;
6.      end;  

[JLWest]

It didn't work as expected.

Attached the program. It's  a very small demo.

[nummer8]

Form in demo project was not visible for me. My screen was to small.
Changed the Form Left and Form Top to 0 in lfm file. After that the form was visible.

I changed the procedure below in your project. That worked without errors or problems.

Code: Pascal  [Select][+][-]

1.  
2. procedure TForm1.ControlClearCB;
3.  var i : Integer;
4.   begin
5.        for i:= 0 to ComponentCount-1 do
6.         if Components[i] is TEdit then begin
7.           TEdit(Components[i]).text := '';
8.         end;
9. end;  
10.  

[JLWest]

Yes, Works great. Just what I was looking for,

Thank You.