Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Schleifen
TobiHH - Mo 23.03.09 22:35
Titel: Schleifen
Hallo
Ich hab mal wieder ein kleines Problemchen :cry:
Auf dem Memo Feld soll jeweils die Zählvariable und ein Text 10 mal aufgegeben werden.
So wie ich das gemacht hab, wird nur die 10 und der Text ausgegeben.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.Button1Click(Sender: TObject);
VAR Zaehlvariable:integer;
begin
FOR Zaehlvariable:= 1 TO 10 DO
Memo1.text:=(IntToStr(Zaehlvariable)+'. Alles wird gut');
end;
end. |
Wäre echt klasse, wenn mir jemand helfen könnte.
Gruß
Moderiert von 
Narses: Topic aus Sonstiges (Delphi) verschoben am Mo 23.03.2009 um 21:38
Keldorn - Mo 23.03.09 23:00
Hallo
klar, du überschreibst ja jedesmal den Text. Du willst den Text hinzufügen
Delphi-Quelltext
1:
2:
|
Memo1.lines.add(...); |
Gruß Frank
TobiHH - Mo 23.03.09 23:34
Danke schonmal. :wink:
Wir haben das Thema jetzt in der Schule angefangen und ich blick da nicht so durch.
Die For-To-Do Schleife funktioniert jetzt. :)
Bei der While-Do und der Repead-Until läuft es die ganze Zeit durch. :cry:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.Button2Click(Sender: TObject);
Var Zaehlvariable:integer;
begin
Zaehlvariable:=1;
WHILE Zaehlvariable <=10 do
Memo2.lines.add(IntToStr(Zaehlvariable)+'. Alles wird gut');
Zaehlvariable:=Zaehlvariable+1;
end; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Button3Click(Sender: TObject);
Var Zaehlvariable, Endwert:integer;
begin
Endwert:=10;
Repeat
Memo3.lines.add(IntToStr(Zaehlvariable)+'. Alles wird gut');
until Zaehlvariable < Endwert;
end; |
Leider verlier ich da im Moment ziemlich schnell den Überblick drüber. :roll:
Wäre echt klasse, wenn jemand nochmal einen Blick drüber werfen könnte.
jakobwenzel - Di 24.03.09 00:11
Bei der While-Schleife fehlt das begin und end, und bei der Repeatschleife die Erhöhung der Zählvariable.
jaenicke - Di 24.03.09 01:09
Und bei repeat auch die Initialisierung der Variable Zaehlvariable.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!