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