Taschenrechner

[Enten Mann]

OK Danke ist die Hilfe Datei auch bei Turbo Delphi dabei weil ich find da in der Hilfedatei nix zu PI, und irgendwie funtz bei mir nur die 0 was is falsch lerne grade delphi

Delphi-Quellcode:

unit Unit1; {Name der Unit}

interface

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

type
  TForm1 = class(TForm)
    Image0: TImage;
    Image1: TImage;
    Image2: TImage;
    Image8: TImage;
    Image5: TImage;
    Image3: TImage;
    Image7: TImage;
    Image6: TImage;
    Image4: TImage;
    Image9: TImage;
    Mal: TImage;
    Back: TImage;
    Geteilt: TImage;
    Gleich: TImage;
    Plus: TImage;
    Punkt: TImage;
    Rechts: TImage;
    Links: TImage;
    Minus: TImage;
    Edit1: TEdit;
    PI: TImage;

    { Procedure Starts }
    procedure Button1Click(Sender: TObject);
    procedure Image0Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure Image9Click(Sender: TObject);
    procedure ImageLinksClick(Sender: TObject);
    procedure ImageRechtsClick(Sender: TObject);
    procedure ImagePlusClick(Sender: TObject);
    procedure ImageMinusClick(Sender: TObject);
    procedure ImagePunktClick(Sender: TObject);
    procedure ImageMalClick(Sender: TObject);
    procedure ImageGleichClick(Sender: TObject);
    procedure ImageGeteiltClick(Sender: TObject);
    procedure ImagePIClick(Sender: TObject);
  { Procedure Ends }
    private
      { Private-Deklarationen }
    public
      { Public-Deklarationen }
  end;

var
  Form1: TForm1; //Hier werden die Globalen Variablen definiert

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject); //Unser OnClick-Ereignis
var
  zahl1, zahl2, ergebnis: integer; //Unsere Variablen
begin
  Edit1.Text:=IntToStr(2*StrToInt(Edit1.Text))
end;

{ Zahlen Buttons }
procedure TForm1.Image0Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '0'; // edInput ist das Edit
end;


procedure TForm1.Image1Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '1'; // edInput ist das Edit
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '2'; // edInput ist das Edit
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '3'; // edInput ist das Edit
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '4'; // edInput ist das Edit
end;

procedure TForm1.Image5Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '5'; // edInput ist das Edit
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '6'; // edInput ist das Edit
end;

procedure TForm1.Image7Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '7'; // edInput ist das Edit
end;

procedure TForm1.Image8Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '8'; // edInput ist das Edit
end;

procedure TForm1.Image9Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '9'; // edInput ist das Edit
end;
{ Zahlen Buttons }




{ Symbole }
procedure TForm1.ImageLinksClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '('; // edInput ist das Edit
end;

procedure TForm1.ImageRechtsClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + ')'; // edInput ist das Edit
end;

procedure TForm1.ImagePlusClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '+'; // edInput ist das Edit
end;

procedure TForm1.ImageMinusClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '-'; // edInput ist das Edit
end;

procedure TForm1.ImageMalClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '*'; // edInput ist das Edit
end;

procedure TForm1.ImageGeteiltClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '/'; // edInput ist das Edit
end;

procedure TForm1.ImagePunktClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + ','; // edInput ist das Edit
end;

procedure TForm1.ImageGleichClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '='; // edInput ist das Edit
end;

procedure TForm1.ImagePIClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + '8'; // edInput ist das Edit
end;
{ Symbole }

end.