Delphi Rechner Programm Teil 2/2

Dies ist der Zweite teil Meines Rechners ich entschuldige mich wieder für viele Grammatikalisch falsche Aussprache. Und vielleicht ist meine Erklärung nicht die beste aber beurteilt selber :D

Quellcode:

unit uRechner1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TfrmRechner = class(TForm)
pnlUeberschrift: TPanel;
edtZahl1: TEdit;
edtZahl2: TEdit;
btnPlus: TButton;
btnMinus: TButton;
btnMal: TButton;
btnGeteilt: TButton;
btnAbbrechen: TButton;
lblZahl1: TLabel;
lblZahl2: TLabel;
edtErgebniss: TEdit;
lblErgebniss: TLabel;
procedure btnAbbrechenClick(Sender: TObject);
procedure btnPlusClick(Sender: TObject);
procedure btnMinusClick(Sender: TObject);
procedure btnMalClick(Sender: TObject);
procedure btnGeteiltClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
frmRechner: TfrmRechner;

implementation

{$R *.dfm}
// --------------------- Abbrech Button --------------------------------------//
begin
Close();
end;
//------------------------- Plus Button --------------------------------------//

var a,b,Ergebniss : Real;
begin
a:=StrToFloat(edtZahl1.Text);
b:=StrToFloat(edtZahl2.Text);
Ergebniss:=a+b;
edtErgebniss.Text:=FloatToStr(Ergebniss);
end;
//------------------------- Minus Button -------------------------------------//
var a,b,Ergebniss : Real;
begin
a:=StrToFloat(edtZahl1.Text);
b:=StrToFloat(edtZahl2.Text);
Ergebniss:=a-b;
edtErgebniss.Text:=FloatToStr(Ergebniss);
end;
//------------------------- Mal Button ---------------------------------------//
var a,b,Ergebniss : Real;
begin
a:=StrToFloat(edtZahl1.Text);
b:=StrToFloat(edtZahl2.Text);
Ergebniss:=a*b;
edtErgebniss.Text:=FloatToStr(Ergebniss);
end;
//------------------------- Geteilt Button -----------------------------------//
var a,b,Ergebniss : Real;
begin
a:=StrToFloat(edtZahl1.Text);
b:=StrToFloat(edtZahl2.Text);
Ergebniss:=a/b;
edtErgebniss.Text:=FloatToStrF(Ergebniss,ffFixed,10,2);
end;

end.