AW: Schleife in Memobox
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; |
AW: Schleife in Memobox
Täusche ich mich oder sollte es nicht schon bei 64 Additionen etwas eng werden?
Gruß K-H |
AW: Schleife in Memobox
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 :/) |
AW: Schleife in Memobox
Dann solltest du vor deinem Programm, vllt. erstmal mit den Grundlagen anfangen.
http://www.delphi-treff.de/tutorials/grundlagen/ |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:13 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz