Taschenrechner

[safak67]

Hallo,

ich soll ein Taschenrechner programmieren habe auch damit angefangen. Ich habe aber einige Probleme.

Ich habe nur Ein Textfeld und von da aus muss ich alles ausrechnen aber hab keine Ahnung wie das geht, kann mir jemand dabei helfen.. Mein bisheiger Quelltext

Delphi-Quellcode:

unit Calculator_Main;

interface

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

type
  TFormCalculator_Main = class(TForm)
    BitBtn1: TBitBtn;
    EditCalc: TEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn0: TBitBtn;
    BitBtnDecimalSep: TBitBtn;
    BitBtnResult: TBitBtn;
    BitBtnPlus: TBitBtn;
    BitBtnMinus: TBitBtn;
    BitBtnDiv: TBitBtn;
    BitBtnMult: TBitBtn;
    BitBtnParantheseLeft: TBitBtn;
    BitBtnParantheseRight: TBitBtn;
    procedure BitBtnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormCalculator_Main: TFormCalculator_Main;

implementation

{$R *.dfm}

procedure TFormCalculator_Main.BitBtnClick(Sender: TObject);
begin
  EditCalc.Text := EditCalc.Text + TBitBtn(Sender).Caption;
end;

end.