unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Math;
type
TForm1 =
class(TForm)
a: TEdit;
b: TEdit;
fi: TEdit;
Ergebnis: TEdit;
Berechnen: TButton;
CheckBox1: TCheckBox;
procedure aChange(Sender: TObject);
procedure bChange(Sender: TObject);
procedure fiChange(Sender: TObject);
procedure ErgebnisChange(Sender: TObject);
procedure BerechnenClick(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.aChange(Sender: TObject);
begin
//
end;
procedure TForm1.bChange(Sender: TObject);
begin
//
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
//
end;
procedure TForm1.fiChange(Sender: TObject);
begin
//
end;
procedure TForm1.BerechnenClick(Sender: TObject);
begin
//
end;
procedure TForm1.ErgebnisChange(Sender: TObject);
begin
//
end;
end.