关于eidt用法

Question

我有100个edit框,我要做个循环对这100进行赋值我要怎么写这个代码?比如:for I:=1 to 100  
      edit(i):=I;我用的是Delphi7语言...请给出代码   

Answer 1

var
  i:Integer;
begin
  for i := 0 to Self.ComponentCount - 1 do
  begin
    if Self.Components[i] is TEdit then
    begin
      //这里做处理
    end;
  end;
end;

Answer 2

k:=1
for i:=0 to Panel1.ControlCount-1 do
      begin
        if Panel1.Controls[i] Is TEdit then
           begin
           (Panel1.Controls[i] As TEdit).Text:=IntToStr(K);
           k:=k+1;
           end;
      end;

Answer 3

我的代码是你那100个EDIT控件都在PANEL1里的情况下

Answer 4

或者var
  i:Integer;
  control:TComponent;
begin
  for i := 1 to 100 do
  begin
    control := FindComponent('Edit'+IntToStr(i));
    if control <> nil then
    begin
      TEdit(control).Text := IntToStr(i);
    end;
  end;
end;

Answer 5

我说一个方法
先定义一个edit数组var
  ArrEdit: array[0..99] of TEdit; 先赋值 
 ArrEdit[0] := Edit1;
  ...................
 ArrEdit[99] := Edit100;以后就可以循环控制了
  for i:= low(ArrEdit) to High(ArrEdit) do
  begin
    ArrEdit[i].Text := 'xxxx';
  end;初始化要一个一个地弄 麻烦点 
但是要是配合动态创建Edit时使用 我感觉很方便了
楼主可以选择自己认为容易掌握的学吧

Answer 6

试试我的：var
  I : Integer;
begin
  for I := 1 to 100 do
  begin
    TEdit(FindComponent('edit'+IntToStr(I))).Text := IntToStr(I);
  end;
end;

Answer 7

1、定义一个edit数组
var
  MyEdit: array[0..99] of TEdit;2、将100个Edit连接进数组
  MyEdit[0] := Edit1;
  ......
  MyEdit[99] := Edit100;
3、使用循环语句对Edit进行操作
（1）写入
  for i:=0 to 99 do
  begin
    MyEdit[i].Text := '指定的字符';
  end;
（2）读出
  for i:=0 to 99 do
  begin
    S:=MyEdit[i].Text;
  end;

Answer 8

还可以将100个EDit放进一个容器中，如TGroupbox1:
1、写入
  for i:=0 to GroupBox1.ControlCount-1 do
    if (GroupBox1.Controls[i] is TEdit) then
      TEdit(GroupBox1.Controls[i]).Text='指定字符'2、读出
  for i:=0 to GroupBox1.ControlCount-1 do
    if (GroupBox1.Controls[i] is TEdit) then
      S:=TEdit(GroupBox1.Controls[i]).Text;

Answer 9

var
  i:Integer;
  control:TComponent;
begin
  for i := 1 to 100 do
  begin
    control := FindComponent('Edit'+IntToStr(i));
    if control <> nil then
    begin
      TEdit(control).Text := IntToStr(i);
    end;
  end;
end;

Answer 10

var
  i:Integer;
  control:TComponent;
begin
  for i := 1 to 100 do
  begin
    control := FindComponent('Edit'+IntToStr(i));
    if control <> nil then
    begin
      TEdit(control).Text := IntToStr(i);
    end;
  end;
end;

Answer 11

var
  i:Integer;
  control:TComponent;
begin
  for i := 1 to 100 do
  begin
    control := FindComponent('Edit'+IntToStr(i));
    if control <> nil then
    begin
      TEdit(control).Text := IntToStr(i);
    end;
  end;
end;