Summe einer Serie von Zahlen mit Hilfe von 2 Edit-boxen

[Amateurprofi]

Hallo diavy,

wenn ich die von dir gepostete Aufgabenstellung richtig interpretiere, dann sollen auf der Form 2 Edits und ein Button sein.
Zahlen, die in Edit1 eingegeben werden, sollen summiert und die Summe in Edit2 ausgegeben werden.

Das könnte man so lösen:

In TForm ein Feld fSum:double deklarieren.

Dann :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   Button1.Click;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var n:double;
begin
   if (key=VK_Return) and (Edit1.Text<>'') then
      if TryStrToFloat(Edit1.Text,n) then begin
         fSum:=fSum+n;
         Edit2.Text:=FloatToStr(fSum);
         Edit1.Text:='';
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   fSum:=0;
   Edit1.Text:='';
   Edit2.Text:='';
end;