循环出现的计数错误是因为free的过程改变了ComponentCount,所以只能反向free
for i := Form1.ComponentCount-1 downto 0 do
begin
if Form1.Components[i] is Tedit then
Form1.Components[i].Free;
end;
循环出现的计数错误是因为free的过程改变了ComponentCount,所以只能反向free
for i := Form1.ComponentCount-1 downto 0 do
begin
if Form1.Components[i] is Tedit then
Form1.Components[i].Free;
end;