unit uMain;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs, uBerechnung,
Vcl.StdCtrls;
type
TForm1 =
class(TForm)
btnEnde: TButton;
edtSeiteA: TEdit;
edtSeiteB: TEdit;
lblSeiteA: TLabel;
lblSeiteB: TLabel;
lblErg: TLabel;
btnFl: TButton;
btnDreieck: TButton;
procedure btnEndeClick(Sender: TObject);
procedure btnFlClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnDreieckClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnDreieckClick(Sender: TObject);
var MyFigure: TDreieck;
begin
MyFigure := TDreieck.Create;
try
MyFigure.SeiteA:=strtofloat(edtSeiteA.text);
MyFigure.SeiteB:=strtofloat(edtSeiteB.text);
lblErg.caption:=floattostr(MyFigure.BerechneFl)
finally
MyFigure.Free;
end;
end;
procedure TForm1.btnEndeClick(Sender: TObject);
begin
close;
end;
procedure TForm1.btnFlClick(Sender: TObject);
var MyFigure : TRechteck;
begin
MyFigure := TRechteck.Create;
try
MyFigure.SeiteA:=strtofloat(edtSeiteA.text);
MyFigure.SeiteB:=strtofloat(edtSeiteB.text);
lblErg.caption:=floattostr(MyFigure.BerechneFl);
finally
MyFigure.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edtSeiteA.text:='
';
edtSeiteB.text:='
';
end;
end.