Delphi Taschenrechner

[heretic]

Habe vor einiger Zeit auch mit Delphi/Lazarus angefangen und auch einen Rechner gemacht vllt hilft dir der Code ein wenig.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ed_summand1: TEdit;
ed_summand2: TEdit;
ed_summe: TEdit;
Label1: TLabel;
Label2: TLabel;
bt_rechne: TButton;
GroupBox1: TGroupBox;
rb_addieren: TRadioButton;
rb_subtrahieren: TRadioButton;
rb_multiplikation: TRadioButton;
rb_division: TRadioButton;
procedure bt_rechneClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure rb_addierenClick(Sender: TObject);
procedure rb_subtrahierenClick(Sender: TObject);
procedure rb_multiplikationClick(Sender: TObject);
procedure rb_divisionClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
bo_addition, bo_subtraktion, bo_multiplikation, bo_division: Boolean;

implementation

{$R *.DFM}

procedure TForm1.bt_rechneClick(Sender: TObject);
var str_summand1, str_summand2: string ;
int_summand1, int_summand2, int_ergebnis: double ;
begin
str_summand1 := ed_summand1.Text;
str_summand2 := ed_summand2.Text;

int_summand1 := strtofloat(str_summand1);
int_summand2 := strtofloat(str_summand2);

if bo_addition then
begin
int_ergebnis := int_summand1+int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_addition := false;
end;

if bo_subtraktion then
begin
int_ergebnis := int_summand1-int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_subtraktion := false;
end;

if bo_multiplikation then
begin
int_ergebnis := int_summand1*int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_multiplikation := false;
end;

if bo_division then
begin
int_ergebnis := int_summand1/int_summand2;
ed_summe.Text := FloatToStr(int_ergebnis);
bo_division := false;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
bo_addition := false;
bo_subtraktion := false;
bo_multiplikation := false;
bo_division := false;
end;

procedure TForm1.rb_addierenClick(Sender: TObject);
begin
bo_addition := true ;
label1.Caption := '+' ;
end;

procedure TForm1.rb_subtrahierenClick(Sender: TObject);
begin
bo_subtraktion := true ;
label1.Caption := '-' ;
end;

procedure TForm1.rb_multiplikationClick(Sender: TObject);
begin
bo_multiplikation := true ;
label1.Caption := '*' ;
end;

procedure TForm1.rb_divisionClick(Sender: TObject);
begin
bo_division := true ;

Nen Tut hatte ich leider nicht was etwas getaugt hatte aber konnte einiges durch rumprobieren lernen und habe einen Bekannten, Buddy die zur Stelle sind mit Rat und tat.
Das kann ich eher empfehlen als nen Tut.
Hoffe das hilft.

ps: sry das es net richtig eingerückt ist xD