Hilfe bei der FOR Schleife

Florian.K · Beiträge: 130 Win Xp Prof. & SP 2 Delphi 10 Lite

Hier kann man euch ja teils schon beim chatten zuschauen =)

Florian.K · Beiträge: 130 Win Xp Prof. & SP 2 Delphi 10 Lite

Es funktioniert gut,jetzt fragt mein Sohn mich ob ich das auch in 2erSchritten machen kann.
bsp. 100 98 96 ,

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

Var zaehlwert:Integer;
begin
For zaehlwert:=100  Downto 1 do
begin
listbox.Items.add (IntToStr(zaehlwert));
Listbox.refresh ;

Ich habe versucht es auf -1 zu stellen jeweils. Ich komme nicht auf die Lösung.

"Hat sich erledigt ich habs " aber vllt hat ja jemand ne einfachere Lösung. Ich hab jetzt nur ungerade Zahlen nicht anzeigen reinprogrammiert.

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

Dafür musst du dann die while Schleife bemühen weil for nur in einer Schritten Zählt

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  i: Integer;
begin
  i := 100;
  while i > 0 do begin
    Listbox.Items.add(IntToStr(i));
    dec(i,2);
    Listbox.Refresh ; 
  end;

(ungetestet)

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Ich Denke mal Du und dein Sohn habt noch etwas vor Euch !!!
zb.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
  i:=0;
 repeat
  inc(i,2);{Um 2 höherzählen}
  Listbox1.Items.Add(IntToStr(i));
 until i >=100; {Prüfen das auch wirklich 100 rauskommt sonst abruch größer 100 sonst Endlos Schleife...}
end;

{for schleife um 2 höherzählen}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
begin
  for i := 1 to 100 div 2 do
 begin
  Listbox1.Items.Add(IntToStr(i*2));
 end;

0xCC · Beiträge: 150

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

 for i := 1 to 100 do   
 begin   
   inc(pinteger(@i)^);
   Listbox1.Items.Add(inttostr(i));   
 end;

Florian.K · Beiträge: 130 Win Xp Prof. & SP 2 Delphi 10 Lite

Spitzen Community hier muss ich schonmal sagen =).

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme