Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var zaehler,zaehler2,ende,start: Integer;
zahl: Real;
begin
start:=StrToInt(Edit12.text);
ende:=StrToInt(edit14.Text);
zahl:=1;
For zaehler:=start To ende Do Begin
zahl:=zahl+zaehler;
zaehler2:=zaehler+1;
end;
edit13.text:=FloatToStr(zahl);
end;
Wie setze ich das nun wieder ein?
Weil, wenn ich zaehler=zaehler2 wähle, bekomm ich wieder den gleichen Fehler wie zum Anfang.
Das hatte ich ja auch schonmal ausprobiert...