Beispiel für eine Delphi-App

Eine einfache Desktop-Anwendung mit Delphi. Bei diesem Beispiel handelt es sich um eine einfache Taschenrechneranwendung

mit einer Benutzeroberfläche für Addition, Subtraktion, Multiplikation und Division.

So können Sie eine einfache Taschenrechner-App in Delphi erstellen:neema blog 5

  1. Öffnen Sie die Delphi-IDE und erstellen Sie ein neues VCL Forms Application-Projekt.

  2. Gestalten Sie die Benutzeroberfläche:

    • Platzieren Sie eine TEdit-Komponente für die Eingabe.
    • Platzieren Sie vier TButton-Komponenten für Additions-, Subtraktions-, Multiplikations- und Divisionsoperationen.
    • Platzieren Sie eine TLabel-Komponente, um das Ergebnis anzuzeigen.

  3. Fügen Sie Ereignishandler für die Schaltflächenklicks hinzu, um arithmetische Operationen basierend auf Benutzereingaben auszuführen.

Hier ist der Delphi-Code für die Hauptformulareinheit (MainForm.pas):

delphi< /div> 
unit MainForm;

Schnittstelle

Verwendet
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

Typ
   TMainCalculatorForm = class(TForm)
     edtInput1: TEdit;
     edtInput2: TEdit;
     btnAdd: TButton;
     btnSubtract: TButton;
     btnMultiply: TButton;
     btnDivide: TButton;
     lblResult: TLabel;
     procedure btnAddClick(Sender: TObject);
     procedure btnSubtractClick(Sender: TObject);
     procedure btnMultiplyClick(Sender: TObject);
     procedure btnDivideClick(Sender: TObject);
   Privat
     {Private Erklärungen}
   öffentlich
     {Öffentliche Erklärungen}
   Ende;

var
   MainCalculatorForm: TMainCalculatorForm;

Implementierung

{$R *.dfm}

procedure TMainCalculatorForm.btnAddClick(Sender: TObject);
var
   Eingabe1, Eingabe2, Ergebnis: Double;
beginnen
   Input1 := StrToFloat(edtInput1.Text);
   Input2 := StrToFloat(edtInput2.Text);
   Ergebnis := Eingabe1 + Eingabe2;
   lblResult.Caption := Format('Ergebnis: %.2f', [Ergebnis]);
Ende;

procedure TMainCalculatorForm.btnSubtractClick(Sender: TObject);
var
   Eingabe1, Eingabe2, Ergebnis: Double;
beginnen
   Input1 := StrToFloat(edtInput1.Text);
   Input2 := StrToFloat(edtInput2.Text);
   Ergebnis := Eingabe1 - Eingabe2;
   lblResult.Caption := Format('Ergebnis: %.2f', [Ergebnis]);
Ende;

procedure TMainCalculatorForm.btnMultiplyClick(Sender: TObject);
var
   Eingabe1, Eingabe2, Ergebnis: Double;
beginnen
   Input1 := StrToFloat(edtInput1.Text);
   Input2 := StrToFloat(edtInput2.Text);
   Ergebnis := Eingabe1 * Eingabe2;
   lblResult.Caption := Format('Ergebnis: %.2f', [Ergebnis]);
Ende;

procedure TMainCalculatorForm.btnDivideClick(Sender: TObject);
var
   Eingabe1, Eingabe2, Ergebnis: Double;
beginnen
   Input1 := StrToFloat(edtInput1.Text);
   Input2 := StrToFloat(edtInput2.Text);
   wenn Input2 <> 0 dann
     Ergebnis := Eingabe1 / Eingabe2
   anders
     Ergebnis := 0;
   lblResult.Caption := Format('Ergebnis: %.2f', [Ergebnis]);
Ende;

Ende.


In diesem Beispiel haben wir vier Schaltflächen (btnAdd, btnSubtract, btnMultiply, btnDivide), also zwei Bearbeitungsfelder (edtInput1,edtInput2) und eine Beschriftung (lblResult). Jede Schaltfläche verfügt über einen Ereignishandler, der die entsprechende arithmetische Operation basierend auf den in den Bearbeitungsfeldern eingegebenen Werten ausführt und das Ergebnis in der Beschriftung anzeigt.

Dies ist ein einfaches Beispiel, um die Grundlagen der Erstellung einer Delphi-Anwendung zu demonstrieren. Sie können diese Taschenrechneranwendung bei Bedarf weiter verbessern, indem Sie Fehlerbehandlung, Validierung und zusätzliche Funktionen hinzufügen.

Wenn Ihnen der Artikel gefällt und Sie einen solchen Service benötigen, zögern Sie bitte nicht      kontaktieren Sie uns