Schleife in Memobox

[Bummi]

Delphi-Quellcode:

Procedure InitMemo(m: TMemo);
var
  i: Integer;
begin
  m.Lines.Clear;
  i := 1;
  m.Lines.Add(IntToStr(i));
  while i <= 4 do
  begin
    m.Lines.Add(IntToStr(i));
    i := i * 2;
  end;
end;

Procedure MemoAddUntil1(m: TMemo; lim: Integer);
var
  i, x: Integer;
begin
  x := 0;
  for i := 0 to m.Lines.Count - 1 do
    x := x + StrToInt(m.Lines[i]);
  if x <= lim then
  begin
    m.Lines.Add(IntToStr(x));
    MemoAddUntil1(m, lim);
  end;
end;

Procedure MemoAddUntil2(m: TMemo; lim: Integer);
var
  i, x: Integer;
begin
  x := 0;
  for i := 0 to m.Lines.Count - 1 do
    x := x + StrToInt(m.Lines[i]);
  while x <= lim do
  begin
    m.Lines.Add(IntToStr(x));
    x := 2 * x;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  InitMemo(Memo1);
  MemoAddUntil1(Memo1, 128);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  InitMemo(Memo1);
  MemoAddUntil2(Memo1, 128);
end;