I wrote a empty edit program statements using edit. The clear but this statement seems to be only empty three edit complains to the fourth

CodePudding user response:

,, do not understand it

CodePudding user response:

Or one of the empty
Or we traverse the empty

 var 
I: Integer; 
The begin 
For I:=0 to Form1. Do ControlCount - 1 
The begin 
If Form1. Controls [I] is TEdit then 
((Form1. Controls [I]) as TEdit). The Text:=' '; 
end; 
end; 

CodePudding user response:

A complains a empty words

CodePudding user response:

What's wrong

CodePudding user response:

Tested 50, didn't also wrong...

CodePudding user response:

This should not wrong, is certainly in other parts of the problem

CodePudding user response:

Or we traverse the empty
Positive solution on the second floor

CodePudding user response:

Positive solution to the second floor if you make a mistake must be type error, the component number wrong, or not edit

CodePudding user response:

Do it, didn't see the fault

CodePudding user response:

Stick the code, agree with the second floor

CodePudding user response:

Copy of the statement, the fourth forget gaiyuan a name?

CodePudding user response:

 var 
I: integer; 
The begin 
For I:=0 to form1. Do ControlCount - 1 
If Controls [I] is TEdit then 
Tedit (Controls, [I]). The Text:=' '; 
ShowMessage (' task '); 
For I:=0 to form1. Do ControlCount - 1 
If Controls [I] is TEdit then 
Tedit (Controls, [I]). The Text:='CSDN task; 
end; 

CodePudding user response:

Post your code

CodePudding user response:

 var 
I: integer; 
The begin 
For I:=0 to form1. Do ControlCount - 1 
If Controls [I] is TEdit then 
Tedit (Controls, [I]). The Clear; 
//Tedit (Controls, [I]). The Text:=' '; Can also be 
end;