关于多个同类控件的使用问题

Question

for i := 0 to ComponentCount-1 do
begin
  if Component[i] is TEdit then
    (TEdit)Component[i].Text := '';
end;

Answer 1

for i := 1 to 10 do
begin
     TEdit(FindComponent(Format('Edit%d' ,[i]))).Text := ...
end;

Answer 2

试试：for i := 0 to ComponentCount-1 do
0Abegin
  if Component[i] is TEdit then
    (Component[i] as TEdit).Text := '';
end;

Answer 3

for i := 0 to ComponentCount-1 do
begin
  if Component[i] is TEdit then
    (Component[i] as TEdit).Text := '';
end;

Answer 4

for i := 0 to ComponentCount-1 do
begin
  if Components[i] is TEdit then
    (Components[i] as TEdit).Text := '';
end;

Answer 5

试过了，可用… 
for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
     // if  TEdit(Components[i]).Parent = Panel1 then  //限定Panel1上的Edit.text := '';
         TEdit(Components[i]).Text := '';

Answer 6

可直接用
with Panel1 do 
for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then     
         TEdit(Components[i]).Text := '';