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;

[p80286]

Täusche ich mich oder sollte es nicht schon bei 64 Additionen etwas eng werden?

Gruß
K-H

[Schali95]

danke für die Antwort doch die memobox sollen das machen wenn ich auf ein button klicken kann ich den code einfach für ein button nutzen?
(sorry das ich so fragen stelle beschäftige mich erst seit ca. 3 Monaten mit delphi :/)

[lbccaleb]

Dann solltest du vor deinem Programm, vllt. erstmal mit den Grundlagen anfangen.

http://www.delphi-treff.de/tutorials/grundlagen/