[timow1993]

hallo ich habe ein Problem bzw brauche hilfe bei einem Programm ich habe bereits das programm geschreiben.Es ist ein Tachenrechner nut felt mir allerdings noch die funktion damit ich mit kommas rechnen kann und mit klammern.

hier der link bitte um Rückmeldung
http://www3.rapidupl...&filepath=30844


hier mein Quelltext :

unit Rechnerpas;

interface

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

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    CheckBox1: TCheckBox;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  xstr: String;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text +'1' ;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text +'2'  ;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text +'3'   ;
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text +'4'    ;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text +'5'     ;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text +'6'      ;
end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text +'7'       ;
end;

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text +'8'        ;
end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text +'9'         ;
end;

procedure TForm1.SpeedButton14Click(Sender: TObject);
begin
  Edit1.Text:= Edit1.Text +'0'          ;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  xstr:= Edit1.text;
  Edit2.Text:= xstr;
  Edit3.Text:= '+';
  Edit1.Text:= ' ';
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
  xstr:= Edit1.text;
  Edit2.Text:= xstr;
  Edit3.Text:= '-';
  Edit1.Text:= ' ';
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
  xstr:= Edit1.text;
  Edit2.Text:= xstr;
  Edit3.Text:= '*';
  Edit1.Text:= ' ';
end;

procedure TForm1.SpeedButton13Click(Sender: TObject);
  var rtyp, z1str , z2str, estr : String;
      z1,z2,e                   :Integer;
      r1,r2,r3                  :real;

begin
  xstr:= Edit1.Text;
  Edit4.Text:= xstr;
  rtyp:= Edit3.Text;
  z1str:= Edit2.Text;
  z2str:= Edit4.Text;
  z1:= StrToInt (z1str);
  z2:= StrToInt (z2str);
  if rtyp = '+' then begin
      e:= z1 + z2 ;
      estr:= InttoStr(e) ;
end
else if rtyp = '-' then begin
    e:= z1 - z2 ;
    estr:= InttoStr (e);
end
else if rtyp = '*' then begin
    e:= z1*z2;
    estr:= InttoStr (e);
end
else if rtyp= ':' then begin
    r1:= StrToFloat (z1str);
    r2:= StrToFloat (z2str);
    r3:= r1/r2 ;
    estr:= FloattoStr (R3)
end
    else begin 
      e:= 0;
      estr:= IntToStr (e);
end;
  Edit5.Text:= estr;


end;



procedure TForm1.SpeedButton16Click(Sender: TObject);
begin
xstr:= Edit1.Text;
Edit2.Text:=xstr;
Edit3.Text:= ':' ;
Edit1.Text:= ' ' ;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= ' ';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=' ';
Edit2.Text:=' ';
Edit3.TExt:=' ';
Edit4.Text:=' ';
Edit5.TExt:=' ';
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.SpeedButton15Click(Sender: TObject);

begin



end;

end.

Angehängte Miniaturbilder

• 

Dieser Beitrag wurde von timow1993 bearbeitet: 17. Juni 2007 - 13:54
Änderungsgrund: Witi: Demnächst direkt codebox nutzen, danke ;)

[bluecifer]

benutz doch enfach StrToFloat statt StrToInt

[timow1993]

v

Dieser Beitrag wurde von timow1993 bearbeitet: 19. Juli 2007 - 08:09