Delphiproblem - Taschenrechner brauche hilfe !

[himitsu]

Du mußt praktisch den eigebenen Text zerlegen (parsen) und dann entsprechend behandeln (ausrechnen).


Tipp: SuFu / Forensuche / ...

Es gibt hier schon Unmassen an Threads zu dem Thema, dann noch mehrere Mathe-Parser, fertige Taschenrechner und einige Tutorials, wo man abgucken kann.
(ja, auch von mir verstecken sich hier mindestens 2 Taschenrechner)

[biby90]

komme i-wie trotzdem net weiter... also dder kann sich zu mindest schonma zahl1 merken. aber wenn ich auf + klicke wird 0 und das soll nicht. und mit dem = weiß ich auch net weiter.

[DeddyH]

Wenn man einmal Punkt- vor Strichrechnung, Klammern usw. ignoriert, dann ist es doch ganz einfach:
- Zwischenergebnis = 0
- Eingabe eines Operanden -> in Variable merken
- Eingabe eines Operators (/, *, +, -, =) -> Zwischenergebnis ermitteln und darstellen, Operator merken

P.S.: Ich möchte nochmals darum bitten, in einigermaßen vernünftigem Deutsch zu schreiben, das ist dann nicht so anstrengend zu lesen, das ist schließlich ein Forum hier und kein Chat.

[biby90]

naja dieser "slang" is überall gängig... aber naja

[himitsu]

Im Prinzip wäre es nicht schlecht, wenn du uns zeigen würdes, was du schon hast, bzw. wie der entsprechend Code (die Funktion) aktuell aussieht.
Sonst können wir schlecht rausbekommen was bei dir nicht funktioniert.


und wie bereits genannt:
Mathe-Parser
Matheparser
Formelparser
...

[add]
wie z.B. http://www.delphipraxis.net/140346-t...kommazahl.html
über diesen Thread ist unter Anderem auch dieses Rechner entstanden (weiß nur gerade nicht, wo diese EXE genau angehängt wurde) und der läßt sich auch über die Tastatur bediehnen.

[biby90]

unit Unit1;

interface

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

type
TEingabemodus = (emAusgabe,emLoeschen,emZahleneingabe);

type
TRechenmodus = (rmAdd,rmSub,rmMult,rmDiv);

type
TForm1 = class(TForm)
txt_rechnung: TEdit;
cmd_7: TButton;
Label1: TLabel;
cmd_clear: TButton;
cmd_div: TButton;
cmd_gleich: TButton;
cmd_0: TButton;
cmd_komma: TButton;
cmd_1: TButton;
cmd_2: TButton;
cmd_3: TButton;
cmd_mul: TButton;
cmd_6: TButton;
cmd_5: TButton;
cmd_4: TButton;
cmd_add: TButton;
cmd_9: TButton;
cmd_8: TButton;
cmd_sub: TButton;
procedure cmd_clearClick(Sender: TObject);
procedure cmd_1Click(Sender: TObject);
procedure cmd_2Click(Sender: TObject);
procedure cmd_3Click(Sender: TObject);
procedure cmd_4Click(Sender: TObject);
procedure cmd_5Click(Sender: TObject);
procedure cmd_6Click(Sender: TObject);
procedure cmd_7Click(Sender: TObject);
procedure cmd_8Click(Sender: TObject);
procedure cmd_9Click(Sender: TObject);
procedure cmd_0Click(Sender: TObject);
procedure cmd_divClick(Sender: TObject);
procedure cmd_mulClick(Sender: TObject);
procedure cmd_subClick(Sender: TObject);
procedure cmd_addClick(Sender: TObject);

procedure ZahlenMerken;
procedure ZahlNeu;
private
{ Private-Deklarationen }
EingabeModus : TEingabeModus;
RechenModus : TRechenModus;



public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
Zahl1, Zahl2, Zahl3: Integer;





implementation

{$R *.dfm}

procedure TForm1.cmd_0Click(Sender: TObject);
begin
txt_rechnung.Text := txt_rechnung.Text + IntToStr(0);
end;

procedure TForm1.cmd_1Click(Sender: TObject);
begin
txt_rechnung.Text := txt_rechnung.Text + IntToStr(1);
end;

procedure TForm1.cmd_2Click(Sender: TObject);
begin
txt_rechnung.Text := txt_rechnung.Text + IntToStr(2);
end;

procedure TForm1.cmd_3Click(Sender: TObject);
begin
txt_rechnung.Text := txt_rechnung.Text + IntToStr(3);
end;

procedure TForm1.cmd_4Click(Sender: TObject);
begin
txt_rechnung.Text := txt_rechnung.Text + IntToStr(4);
end;

procedure TForm1.cmd_5Click(Sender: TObject);
begin
txt_rechnung.Text := txt_rechnung.Text + IntToStr(5);
end;

procedure TForm1.cmd_6Click(Sender: TObject);
begin
txt_rechnung.Text := txt_rechnung.Text + IntToStr(6);
end;

procedure TForm1.cmd_7Click(Sender: TObject);
begin
txt_rechnung.Text := txt_rechnung.Text + IntToStr(7);
end;

procedure TForm1.cmd_8Click(Sender: TObject);
begin
txt_rechnung.Text := txt_rechnung.Text + IntToStr(8);
end;

procedure TForm1.cmd_9Click(Sender: TObject);
begin
txt_rechnung.Text := txt_rechnung.Text + IntToStr(9);
end;

procedure TForm1.cmd_addClick(Sender: TObject);
begin
label1.Caption := '+';
ZahlenMerken;
txt_rechnung.Text := IntToStr(zahl1 + Zahl2);

end;

procedure TForm1.cmd_clearClick(Sender: TObject);
begin
txt_rechnung.Clear;

end;

procedure TForm1.cmd_divClick(Sender: TObject);
begin
label1.Caption := '/' ;

end;

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

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

procedure TForm1.ZahlenMerken;
begin
if Eingabemodus = emZahleneingabe then
Zahl1 := strToInt(txt_rechnung.text);
Eingabemodus := emLoeschen;
if Eingabemodus = emZahleneingabe then
Zahl2 := strToInt(txt_rechnung.text);
Eingabemodus := emLoeschen;
end;

procedure TForm1.ZahlNeu;
begin
if Eingabemodus = (emLoeschen) then
begin
txt_rechnung.Text := '';
end;
Eingabemodus := emZahleneingabe;
end;

end.




das isser

[DeddyH]

Benutze doch bitte die Delphi-Tags für Quelltexte (die Schaltfläche mit dem Helm im Editor). Und Dein Zahlenmerken sieht etwas komisch aus.

Zitat:

Delphi-Quellcode:

Eingabemodus := emLoeschen;
if Eingabemodus = emZahleneingabe then //kann ja nie wahr sein, siehe Zeile darüber

[biby90]

so gut so weit.
jetzt habe ich das problem dass er '-' nicht als operator erkennt.

Delphi-Quellcode:

procedure TForm1.cmd_mulClick(Sender: TObject);
begin
  label1.Caption := '*' ;
if Rechenart = 0 then
  Speicher := StrToFloat(txt_rechnung.text);
if Rechenart = 1 then
  Speicher := Speicher + StrToFloat(txt_rechnung.text);
if Rechenart = 2 then
  Speicher := Speicher – StrToFloat(txt_rechnung.text); // also hier
if Rechenart = 3 then
  Speicher := Speicher * StrToFloat(txt_rechnung.text);
if Rechenart = 4 then
  Speicher := Speicher / StrToFloat(txt_rechnung.text);
Rechenart := 3;
txt_rechnung.text := '';
end;

hatte ja die hoffnung das geht jetzt aber war wohl mal wieder nichts.

[biby90]

ok hab es rausbekommen.
jetzt will er es aber nicht zusammenrechnen wenn ich = klicke.

Delphi-Quellcode:

procedure TForm1.cmd_gleichClick(Sender: TObject);
begin
txt_rechnung.text := FloatToStr(Speicher);
Speicher := 0;
Rechenart := 0;
end;

was habe ich denn da wieder falsch?