一个全新的问题

Question

我有三条记录,每条记录三个字段.
现有9个Edit控件,把Edit控件分成三行，每行三个Edit控件。
把记录分别赋值给他们，该怎么做?
谢谢

Answer 1

edit.text := ...FieldByName('').asstring;

Answer 2

这个我知道啊，可是我要控制下一条记录要赋值给下一行的Edit啊。
该怎么做啊？

Answer 3

var
  i, index: Integer;index = 1;
while not your_query.eof do
begin
  for i=0 to your_query.fileds.count do
  begin
    (TEdit)(FindComponent("Edit"+IntToStr(index)).Text = your_query.field[i].AsString;
    Inc(index);
  end;
  your_query.next;
end;

Answer 4

好象不行啊，我用了，可是Edit里没有显示任何的内容啊。
我已经给他赋值了

Answer 5

写个循环不就行了
with adoquery1 do
begin
  first
  while not eof do
  begin
    case recno of 
    1: begin
         edit1.text:=
         edit2.text:=
         edit3.text:=
       end;
    2:
    3:   
  end
end

Answer 6

with adoquery1 do
begin
  first
  while not eof do
  begin
    case recno of 
    1: begin
         edit1.text:=
         edit2.text:=
         edit3.text:=
       end;
    2:
    3:
    end
   
  end
end