急（给高分）

Question

  用tag属性吧 

Answer 1

var
 x, cul, row, i: integer;
 s: string;
begin
  i := 0;
  for row := 1 to 25 do
  begin
    for cul := 0 to 7 do
    begin
      x:=8*row+(cul+1);
      if tform.Tcomponents[ i ] is TEdit then
       begin
         TComponents[ i ].name := 'e_" + IntToStr(i + 1);
      inc(i);
       end;
    end;
   end;
end;

Answer 2

to   lwk_hlj(阿凯) 具体怎么用，我是采鸟的 请多多指点