怎样为一组edit1.text赋值？

Question

procedure Thhtx.cmdEditExecute(Sender: TObject);
var
   I:integer;
begin
   Table1.edit;
   for i :=1 to 31 do
      TDBEdit(findcomponent('DBEdit' + inttostr(i))).Enabled :=True;
   For i :=1 to 4 do
      TDBMemo(findcomponent('DBMemo' + inttostr(i))).Enabled :=True;
   cmdEdit.enabled:=False;
   cmdNew.Enabled:=False;
   cmdDelete.Enabled:=False;
   cmdSave.Enabled:=True;
   cmdCancel.Enabled :=True;
   DBGrid1.Enabled :=False;
   PageControl1.Pages[0].Show;
   DBEdit31.SetFocus;
end;

Answer 1

for i ;= 0 to n do
begin
Tedit(findcomponent('edit' + inttostr(i))).text := '10';
end;

Answer 2

准确来说语句应这样写:
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to form1.ComponentCount-1 do
    if form1.Components[i] is tedit
      then tedit(form1.Components[i]).text:='10';
end;
我实际测试过,绝对好用!

Answer 3

wafeijian(韵杰〖痛并快乐着……〗:你给我的解答，我看不明白（我是初学者）但还是给你10分吧。
hmily1688(孤独一剑)：谢了。给你20分，说话算数的。

Answer 4

for i:=0 to 4 do
  (form1.findcomponent('edit'+inttostr(i)) as tedit).text:='10';

Answer 5

for i:=0 to form1.ComponentCount-1 do
if (form1.Components[i] is tEdit) then 
tedit(form1.Components[i]).text:='Yourtext';