addition der zahlen eins bis 100

[Klaus01]

Hallo,

vielleicht geht es ja so:

Delphi-Quellcode:

var 
  ergebnis , n : integer; 
begin 
  for n:= 1 to 100 do 
    begin 
      //memo1.lines.add(IntToStr(ergebnis)+' + '+IntToStr(n)+' = '+IntToStr(ergebnis+n));
      ergebnis:= ergebnis + n; 
    end
  Edit1.Text:= IntToStr (ergebnis); 
end;

[edit]
Wenn Du alle Zwischenergebnisse aufgelistet haben möchtest
dann würde sich zur Anzeige ein TMemo anbieten.


Grüße
Klaus