求助一条循环语句

Question

var
A,B,C:integer;
Count:integer;
begin
  with dm.Query1 do
  begin
    Count:=0;
    Count:=Count+1;
    Close;
    Sql.Clear;
    Sql.Add('select 字段一,字段二 from 表名 where 条件');
    Open;
    Edit1.Text:=dm_lj.KFJYQuery1.FieldByName('字段一').AsString;
    Edit2.Text:=dm_lj.KFJYQuery1.FieldByName('字段二').AsString;
    Edit6.Text:=Edit1.Text;
    A:=strtoint(Edit1.Text);
    B:=strtoint(Edit2.Text);
    C:=strtoint(Edit6.Text);
    for C:=A to B do
    Edit6.Text:=inttostr(C+Count);
  end;
end;我想按一下控件自动从初始自动加一到结束条件为止，我怎么改都是直接在控件上显示的结束条件的内容，请问应该怎么写？？？

Answer 1

楼主,那给我分吧,我会谢谢你的,HOHO~~~