新建了一个单元文件,在里面定义了一个这样的方法:
for i:=0 to ComponentCount-1 do
if Components[i] is TEdit then
TEdit(components[i]).Text:='';
为什么在ComponentCount和Components[i]出提示错误
是不是需要在uses后面引用什么单元文件,如果是的话,需要引用什么?
谢谢
for i:=0 to ComponentCount-1 do
if Components[i] is TEdit then
TEdit(components[i]).Text:='';
为什么在ComponentCount和Components[i]出提示错误
是不是需要在uses后面引用什么单元文件,如果是的话,需要引用什么?
谢谢
uses Classes,Forms,StdCtrls;
implementation
function test(Ttest:TForm):boolean;
var i:integer;
begin
for i:=0 to Ttest.ComponentCount-1 do
if Ttest.Components[i] is TEdit then
TEdit(Ttest.components[i]).Text:='';
end;
end.这样才可以!