procedure Tf_scoreinput.BitBtn1Click(Sender: TObject);var i:integer;
begin
for i:= 0 to f_scoreinput.ComponentCount-1 do
begin
if components[i] is Tzqedit then
tedit(components[i]).Text:='';
end;
end;显示 if语句有问题if components[i] is Tzqedit then
begin
for i:= 0 to f_scoreinput.ComponentCount-1 do
begin
if components[i] is Tzqedit then
tedit(components[i]).Text:='';
end;
end;显示 if语句有问题if components[i] is Tzqedit then
应该给一个确切的东西吧,加括号看看呢
if components[i] is Tzqedit then 本身没有问题
如果当前是窗体,则考虑
for k := 0 to Self.ControlCount-1 do begin
if Self.Controls[k] is Tzqedit then
end;