unit uhaupt;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data;


type
  TWinForm = class(System.Windows.Forms.Form)
  {$REGION 'Vom Designer verwalteter Code'}
  strict private
    /// <summary>
    /// Erforderliche Designervariable.
    /// </summary>
    Components: System.ComponentModel.Container;
    lbl_peis: System.Windows.Forms.Label;
    edit_bruttopreis: System.Windows.Forms.TextBox;
    lbl_steuer: System.Windows.Forms.Label;
    edit_steuer: System.Windows.Forms.TextBox;
    lbl_ergebnis: System.Windows.Forms.Label;
    btn_rechne: System.Windows.Forms.Button;
    btn_ende: System.Windows.Forms.Button;
    /// <summary>
    /// Erforderliche Methode zur Unterstützung des Designers -
    /// ändern Sie die Methode nicht mit dem Quelltext-Editor
    /// </summary>
    procedure InitializeComponent;
    procedure btn_ende_Click(sender: System.Object; e: System.EventArgs);
    procedure btn_rechne_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Ressourcen nach der Verwendung bereinigen
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private-Deklarationen }
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
Var
  brutto:Integer;


implementation

{$AUTOBOX ON}

{$REGION 'Windows Form-Designer erzeugter Code'}
/// <summary>
/// Erforderliche Methode zur Unterstützung des Designers --
/// ändern Sie die Methode nicht mit dem Quelltext-Editor
/// </summary>
procedure TWinForm.InitializeComponent;
begin
  Self.lbl_peis := System.Windows.Forms.Label.Create;
  Self.edit_bruttopreis := System.Windows.Forms.TextBox.Create;
  Self.lbl_steuer := System.Windows.Forms.Label.Create;
  Self.edit_steuer := System.Windows.Forms.TextBox.Create;
  Self.lbl_ergebnis := System.Windows.Forms.Label.Create;
  Self.btn_rechne := System.Windows.Forms.Button.Create;
  Self.btn_ende := System.Windows.Forms.Button.Create;
  Self.SuspendLayout;
  //
  // lbl_peis
  //
  Self.lbl_peis.Location := System.Drawing.Point.Create(40, 48);
  Self.lbl_peis.Name := 'lbl_peis';
  Self.lbl_peis.TabIndex := 0;
  Self.lbl_peis.Text := 'Bruttopreis in Euro';
  //
  // edit_bruttopreis
  //
  Self.edit_bruttopreis.Location := System.Drawing.Point.Create(40, 72);
  Self.edit_bruttopreis.Name := 'edit_bruttopreis';
  Self.edit_bruttopreis.Size := System.Drawing.Size.Create(120, 20);
  Self.edit_bruttopreis.TabIndex := 1;
  Self.edit_bruttopreis.Text := '';
  //
  // lbl_steuer
  //
  Self.lbl_steuer.Location := System.Drawing.Point.Create(288, 48);
  Self.lbl_steuer.Name := 'lbl_steuer';
  Self.lbl_steuer.Size := System.Drawing.Size.Create(120, 24);
  Self.lbl_steuer.TabIndex := 2;
  Self.lbl_steuer.Text := 'Mehrwertsteuer in %';
  //
  // edit_steuer
  //
  Self.edit_steuer.Location := System.Drawing.Point.Create(296, 72);
  Self.edit_steuer.Name := 'edit_steuer';
  Self.edit_steuer.TabIndex := 3;
  Self.edit_steuer.Text := '';
  //
  // lbl_ergebnis
  //
  Self.lbl_ergebnis.Location := System.Drawing.Point.Create(112, 128);
  Self.lbl_ergebnis.Name := 'lbl_ergebnis';
  Self.lbl_ergebnis.Size := System.Drawing.Size.Create(272, 56);
  Self.lbl_ergebnis.TabIndex := 4;
  //
  // btn_rechne
  //
  Self.btn_rechne.Location := System.Drawing.Point.Create(48, 216);
  Self.btn_rechne.Name := 'btn_rechne';
  Self.btn_rechne.Size := System.Drawing.Size.Create(168, 32);
  Self.btn_rechne.TabIndex := 5;
  Self.btn_rechne.Text := 'Berechnen';
  Include(Self.btn_rechne.Click, Self.btn_rechne_Click);
  //
  // btn_ende
  //
  Self.btn_ende.Location := System.Drawing.Point.Create(280, 216);
  Self.btn_ende.Name := 'btn_ende';
  Self.btn_ende.Size := System.Drawing.Size.Create(152, 32);
  Self.btn_ende.TabIndex := 6;
  Self.btn_ende.Text := 'Abbruch';
  Include(Self.btn_ende.Click, Self.btn_ende_Click);
  //
  // TWinForm
  //
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(552, 270);
  Self.Controls.Add(Self.btn_ende);
  Self.Controls.Add(Self.btn_rechne);
  Self.Controls.Add(Self.lbl_ergebnis);
  Self.Controls.Add(Self.edit_steuer);
  Self.Controls.Add(Self.lbl_steuer);
  Self.Controls.Add(Self.edit_bruttopreis);
  Self.Controls.Add(Self.lbl_peis);
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure TWinForm.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TWinForm.Create;
begin
  inherited Create;
  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  InitializeComponent;
  //
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  //
end;

procedure TWinForm.btn_rechne_Click(sender: System.Object; e: System.EventArgs);
[b]begin
   brutto:=StrToInt(edit_bruttopreis.Text);
end;[/b]

procedure TWinForm.btn_ende_Click(sender: System.Object; e: System.EventArgs);
begin
  Close;
end;

end.