Mehrere Zahlen Rechnen

[DelphiDustin]

Hallo Leute ich mal wieder,

Ich habe einen Taschenrechenr programmiert bei dem man die Zahlen über Buttons eingibt isher konnte man immer nur 2 Zhalen eingeben ich möchte jetzt aber das man mit mehr Zahlen rechnen kann. Ich habe die vermutung das man mit arrays arbeiten muss aber ich weiß nicht genau wie ich das anstellen soll.

Delphi-Quellcode:

var
  Form4: TForm4;
         Zahl1, Zahl2:double;
         istKomma, istPlus, istMinus, istMal, istGeteielt, istErgebnis:Boolean;
implementation

{$R *.dfm}


procedure TForm4.Plus;
begin
edit1.Text:=floattostr(Zahl1+Zahl2);
end;

procedure TForm4.Minus;
begin
  edit1.Text:=floattostr(Zahl1-Zahl2);
end;

procedure TForm4.Mal;
begin
edit1.Text:=floattostr(Zahl1*Zahl2);
end;

procedure TForm4.Geteielt;
begin
edit1.Text:=floattostr(Zahl1/Zahl2);
end;

procedure TForm4.GeteieltButtonClick(Sender: TObject);
begin
     zahl1:=strtofloat(edit1.Text);
     istKomma:=false;
     edit1.Text:='';
     label1.Caption:=floattostr(Zahl1)+'/';
istGeteielt:=True ;
istPlus:=false;
istMinus:=false;
istMal:=false;
istErgebnis:=true;
end;

procedure TForm4.MalButtonClick(Sender: TObject);
begin
   zahl1:=strtofloat(edit1.Text);
   istKomma:=false;
   edit1.Text:='';
        label1.Caption:=floattostr(Zahl1)+'*';
istMal:=True ;
istPlus:=false;
istMinus:=false;
istGeteielt:=false;
istErgebnis:=true;
end;

procedure TForm4.MinusButtonClick(Sender: TObject);
begin
    zahl1:=strtofloat(edit1.Text);
    istKomma:=false;
    edit1.Text:='';
         label1.Caption:=floattostr(Zahl1)+'-';
  istMinus:=True;
  istPlus:=false;
  istMal:=false;
  istGeteielt:=false;
  istErgebnis:=true;
end;

procedure TForm4.PlusButtonClick(Sender: TObject);
begin
   zahl1:=strtofloat(edit1.Text);
   istKomma:=false;
   edit1.Text:='';
        label1.Caption:=floattostr(Zahl1)+'+';
istPlus:=True;
istMinus:=false;
istMal:=false;
istGeteielt:=false;
istErgebnis:=true;
end;

procedure TForm4.GleichButtonClick(Sender: TObject);
begin
label1.Caption:='';
istKomma:=false;
zahl2:=strtofloat(edit1.Text);
  if istPlus=true then plus;
  if istMinus=true then Minus;
  if istMal=true then Mal;
  if istGeteielt=true then Geteielt;
end;

procedure TForm4.NullButtonClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+'0'
end;

procedure TForm4.EinsButtonClick(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'1'
end;

procedure TForm4.ZweiButtonClick(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'2'
end;

procedure TForm4.DreiButtonClick(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'3'
end;

procedure TForm4.VierButtonClick(Sender: TObject);
begin
   edit1.Text:=edit1.Text+'4'
end;

procedure TForm4.FünfButtonClick(Sender: TObject);
begin
    edit1.Text:=edit1.Text+'5'
end;

procedure TForm4.SechsButtonClick(Sender: TObject);
begin
    edit1.Text:=edit1.Text+'6'
end;
procedure TForm4.SiebenButtonClick(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'7' ;
end;

procedure TForm4.AchtButtonClick(Sender: TObject);
begin
    edit1.Text:=edit1.Text+'8'
end;

procedure TForm4.BackSpaceButtonClick(Sender: TObject);
var
    Länge:string;
    NeueLänge:Integer;
begin
if istErgebnis=false then
    Länge:= edit1.Text;
    NeueLänge:=Length(edit1.Text);
    setlength(länge,NeueLänge-1);
    NeueLänge:=NeueLänge-1;
    edit1.text:=Länge
end;


procedure TForm4.NeunButtonClick(Sender: TObject);
begin
    edit1.Text:=edit1.Text+'9'
end;

procedure TForm4.KommaButtonClick(Sender: TObject);
begin
if istKomma=false then
edit1.Text:=edit1.Text+',';
if istKomma=false then
      istKomma:=true
end;

procedure TForm4.LöschenButtonClick(Sender: TObject);
begin
     edit1.Text:='';
     label1.Caption:=''
end;

end.

lg Dustin

[Klaus01]

.. ist beim Taschenrechner die Funktionsweise nicht so:

Zahl1 eingeben
Rechenoperation drücken
Zahl2 eingeben
= drücken.
Rechenoperation drücken
Zahl 3 eingeben
= drücken

Mit Klammern wird es etwas komplizierter.

Grüße
Klaus

[DelphiDustin]

Zitat von Klaus01:

.. ist beim Taschenrechner die Funktionsweise nicht so:

Zahl1 eingeben
Rechenoperation drücken
Zahl2 eingeben
= drücken.
Rechenoperation drücken
Zahl 3 eingeben
= drücken

Mit Klammern wird es etwas komplizierter.

Wie würde man das denn Programieren?

[KodeZwerg]

Dir fehlt an sehr vielen Stellen ein Terminator Zeichen.
Beispiel aus

Delphi-Quellcode:

procedure TForm4.EinsButtonClick(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'1'
end;

würde ich ein

Delphi-Quellcode:

procedure TForm4.EinsButtonClick(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'1';
end;

machen. Vielleicht liegt darin Dein Problem?

[DelphiDustin]

Zitat von KodeZwerg:

Dir fehlt an sehr vielen Stellen ein Terminator Zeichen.
Beispiel aus

Stimmt füg ich gleich hinzu

Zitat von KodeZwerg:

Vielleicht liegt darin Dein Problem?

Der Rechner funktioniert ja es geht mir nur darum mit mehreren zahlen als 2 zu rechnen

[Jonas Shinaniganz]

Naja, zur Zeit hast du ja nur 2 Textfelder für 2 Zahlen, wie möchtest du denn die weiteren Zahlen zum rechnen eingeben?
Gruß Jonas

[TurboMagic]

Zitat von KodeZwerg:

Dir fehlt an sehr vielen Stellen ein Terminator Zeichen.
Beispiel aus

Delphi-Quellcode:

procedure TForm4.EinsButtonClick(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'1'
end;

würde ich ein

Delphi-Quellcode:

procedure TForm4.EinsButtonClick(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'1';
end;

machen. Vielleicht liegt darin Dein Problem?

Nein, daran liegt es nicht, auch wenn es säuberer mit ist.
Es gibt nämlich eine kleine wenig beachtete Spezialregel für die Syntax:
vor dem letzten End des Blocks darf das ; weggelassen werden

Der Compiler meckert da nicht und das Programm tut, was man programmiert hat.

[Delphi-Laie]

Zitat von KodeZwerg:

Dir fehlt an sehr vielen Stellen ein Terminator Zeichen.
Beispiel aus

Delphi-Quellcode:

procedure TForm4.EinsButtonClick(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'1'
end;

würde ich ein

Delphi-Quellcode:

procedure TForm4.EinsButtonClick(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'1';
end;

machen. Vielleicht liegt darin Dein Problem?

Ist das Semikolon gemeint?

Wenn irgendwo eines fehlen täte, würde der Compiler es doch gleich monieren!

Tatsächlich ist das Semikolon in Pascal kein Terminatorzeichen. Man könnte es genausogut auch vor jede Anweisung schreiben, das wäre auch möglich und würde genausogut funktionieren. Doch es ist auch kein Einleitungszeichen.

In Wirklichkeit ist es ein (Ab)Trenn(ungs)zeichen und dient dazu, Anweisungen voneinander zu trennen (und genau dafür benutze ich es auch).

Den Unfug, daß hinter jeder Anweisung ein Semikolon zu setzen sei, ja gesetzt werden muß, las ich sogar schon in einem Delphibuch.

[hoika]

Hallo,
mehrere Zahlen + Klammern -> Formelparser.

Das ist dann kein Array, sondern ein Baum.
Die Knoten sind das jeweilige Rechenzeichen bzw. die Klammer.

Klingt etwas komplizierter -> ist es auch.

[KodeZwerg]

Zitat von Delphi-Laie:

In Wirklichkeit ist es ein (Ab)Trenn(ungs)zeichen und dient dazu, Anweisungen voneinander zu trennen (und genau dafür benutze ich es auch).

Mag noch etwas früh sein, da das Wort "trennen" bei Dir vorkommt, nenn ich es halt terminieren, sprich "Anweisung ist hier am Ende und die nächste kann kommen"

Zitat von TurboMagic:

Es gibt nämlich eine kleine wenig beachtete Spezialregel für die Syntax:
vor dem letzten End des Blocks darf das ; weggelassen werden

Ohhhkay, das war mir neu, Danke für den Hinweis.

Zitat von hoika:

mehrere Zahlen + Klammern -> Formelparser.

Das tat ich am Ende dann auch, zum erlernen war mir das mit zwei Edit's ausreichend.
Sehr guter Tipp!

Einen guten Morgen und einen schönen Tag euch allen!