unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFAnwendung =
class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
edtZahl1: TEdit;
edtZahl2: TEdit;
edtAdd: TEdit;
edtMal: TEdit;
btnRechnen: TButton;
procedure btnRechnenClick(Sender: TObject);
private
procedure Addieren (Zahl1, Zahl2,
Out Ergebnis : integer);
public
{ Public-Deklarationen }
end;
var
FAnwendung: TFAnwendung;
implementation
{$R *.dfm}
procedure TFAnwendung.btnRechnenClick(Sender: TObject);
var
Zahl1 : integer;
Zahl2 : integer;
Ergebnis : integer;
begin
Zahl1 := StrToInt(edtZahl1.Text);
Zahl2 := StrToInt(edtZahl2.Text);
Addieren(Zahl1, Zahl2, Ergebnis);
edtAdd.Text := IntToStr(Ergebnis);
end;
procedure TFAnwendung.Addieren (Zahl1, Zahl2,
Out Ergebnis : integer);
begin
Ergebnis := Zahl1 + Zahl2;
end;
end.