Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TForm1.Button1Click(Sender: TObject);
- var
- i: integer;
- zahl1: integer;
- zahl2: integer;
- Ergebnis: integer;
- begin
- zahl1:= StrToInt(Edit1.Text);
- zahl2:= StrToInt(Edit2.Text);
- Ergebnis:= 0;
- for i := zahl1 to zahl2 do begin
- Ergebnis:= Ergebnis + i;
- end;
- Label1.Caption:= IntToStr(Ergebnis);
- end;
- procedure TForm1.FormActivate(Sender: TObject);
- begin
- Edit1.Text:= '';
- Edit2.Text:= '';
- Label1.Caption:= 'Ergebnis';
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement