Hallo.
So, ich bin nun kurzerhand zu euch gestoßen, weil ich ein dickes Problem mit Delphi habe. ^^"
Also, wir müssen einen Taschenrechner entwerfen. Gut und schön.
Wir sollen mit Strings arbeiten, die wir dann mit StrtoFloat umwandeln.
So, nun aber mein Problem:
Ich habe so wirklich keine Ahnung wie ich anfangen soll.
Einen kleinen Teil des Codes habe ich bereits geschafft, das die Zahlen angezeigt werden. Allerdings wird mir bei den Rechenoperationen schwindelig.
Wir sollen insgesamt folgende Operationen durchführen können:
+ (plus)
- (minus)
* (mal)
/ (geteilt)
= (gleich)
Und sämtliche Zahlen, also auch Kommazahlen.
Hier der bereits angefangene Code:
Code: 
unit Unit1;

interface

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

type
  TTaschenrechner = class(TForm)
    Display: TEdit;
    Btn7: TButton;
    Btn8: TButton;
    Btn9: TButton;
    Btn6: TButton;
    Btn5: TButton;
    Btn4: TButton;
    Btn1: TButton;
    Btn2: TButton;
    Btn3: TButton;
    Btn0: TButton;
    Btncomma: TButton;
    BtnOut: TButton;
    Btnplus: TButton;
    Btnminus: TButton;
    Btnmal: TButton;
    Btndivid: TButton;
    procedure Btn1Click(Sender: TObject);
    procedure Btn2Click(Sender: TObject);
    procedure Btn3Click(Sender: TObject);
    procedure Btn4Click(Sender: TObject);
    procedure Btn5Click(Sender: TObject);
    procedure Btn6Click(Sender: TObject);
    procedure Btn7Click(Sender: TObject);
    procedure Btn8Click(Sender: TObject);
    procedure Btn9Click(Sender: TObject);
    procedure Btn0Click(Sender: TObject);
    procedure BtncommaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Taschenrechner: TTaschenrechner;

implementation

{$R *.dfm}

procedure TTaschenrechner.Btn1Click(Sender: TObject);
begin
  Display.Text := Display.Text+'1';

end;

procedure TTaschenrechner.Btn2Click(Sender: TObject);
begin
  Display.Text := Display.Text+'2';

  end;

procedure TTaschenrechner.Btn3Click(Sender: TObject);
begin
  Display.Text := Display.Text+'3';

end;

procedure TTaschenrechner.Btn4Click(Sender: TObject);
begin
  Display.Text := Display.Text+'4';

end;

procedure TTaschenrechner.Btn5Click(Sender: TObject);
begin
  Display.Text := Display.Text+'5';

end;

procedure TTaschenrechner.Btn6Click(Sender: TObject);
begin
  Display.Text := Display.Text+'6';

end;

procedure TTaschenrechner.Btn7Click(Sender: TObject);
begin
  Display.Text := Display.Text+'7';

end;

procedure TTaschenrechner.Btn8Click(Sender: TObject);
begin
  Display.Text := Display.Text+'8';

end;

procedure TTaschenrechner.Btn9Click(Sender: TObject);
begin
  Display.Text := Display.Text+'9';

end;

procedure TTaschenrechner.Btn0Click(Sender: TObject);
begin
  Display.Text := Display.Text+'0';

end;

procedure TTaschenrechner.BtncommaClick(Sender: TObject);
begin
  Display.Text := Display.Text+',';
  
end;

end.
Wäre nett wenn das mir jemand verständlich erklären könnte. ^^
Danke!