如何在循环过程中随时改变循环变量的值

Question

我用for 循环大概的意思如下:
var
i,k,j: integer;
s: string;
begin
  k := 0;
  for i:=k to 100 do
  begin
    if i=8 then
    begin
      s := ''
      for j:=i to 50 do
      begin
        if j=30 then break;
        s := s+IntToStr(j);        
      end;
      k := j;//在这里我想重新赋给k是j的值,应该是30吧,让外循环又从30到100循环,可是程序不会运行到这里,该怎办?请高手指教........
    end;
  end;
end;

Answer 1

while
  在里面怎么改都可以啊

Answer 2

procdure Tform1.button1click(sender);
var
i,k,j: integer;
s: string;
begin
  k := 0;
  for i:=k to 100 do
  begin
    if i=8 then
    begin
      s := ''
      for j:=i to 50 do
      begin
        if j=30 then break;
        s := s+IntToStr(j);        
      end;
      k := j;
      button1.click;  //在这里增加一句
    end;
  end;
end;
另外，将K设为全局变量。