Delphi Taschenrechner

[bayer]

Zuersteinmal kannst du nicht einfach nen Rechenoperator in eine Variable packen Das würde dir verdammt viele Komplikationen bereiten, wie z.b. beim Teilen durch 0.

Du kannst deine Variable 'rechenoperator' als 'char' deklarieren (rechenoperator: Char; ) und da dann ein Zeichen wie z.b. +, -, * und / drin speichern (z.B. rechenoperator := '+'; ).

Beim Klick auf den Rechnen-Button musst du dann halt abfragen, welches Rechenzeichen die Variable rechenoperator hat. Das geht so:

case rechenoperator of
    '+': ergebnis := a + b;
    '-': ergebnis := a - b;
    '*': ergebnis := a * b;
    '/':
    begin
        if b <> 0 then
        ergebnis := a / b
    else
        showmessage('Division by Zero!');

end;

Dieser Code soll dir nur zeigen, wie man das nutzt. Wenn die Variable 'ergebnis' ein int ist, wirst du beim Dividieren ein weiteres Problem bekommen (Gleitkommazahlen ist das Stichwort )

So, und nun viel Spass weiterhin beim Lernen

Edit: Da warste wohl schneller aber gib bei deinem Taschenrechner mal 4 und 3 ein und dividier das oder 3 und 0. Solche Fehler zu erkennen und zu entfernen ist mMn eine wesentlich bessere Übung, als ein Progrämmchen nach dem anderen "hinzuschmieren". (Ist nett böse gemeint)

[Zweitopf]

Warum kriege ich so viele Fehler wenn ich versuche deinen Code reinzupasten?

Aber trotzdem Danke für den Tipp!

[bayer]

weil du nicht meinen Code da reingenommen hast

   '/':
    begin
        if b <> 0 then
        ergebnis := a / b
    else

Schau dir das mal genau an Der Lerneffekt wird sich dann sicher stark bemerkbar machen, was die Syntax der Case of-Bedingung angeht.

Ausserdem musst du die Variable, die bei mir ergebnis heisst, in deine Ergebnis-beimhaltende Variable umbenennen

[Zweitopf]

Bekomme immer noch Fehler:

Immoment tue ich mich noch ziemlich schwer mit der Reihenfolge daher auch diese ganzen "XXX expected but XXX found"
Irgendwie jemand ein gutes Tutorial zum Aufbau von Delphi?

[bayer]

Du hast da noch ein else drin, dem nichts folgt ausser ein 'end;'.

Nimm das else mal raus, dann sollte es gehen

Du solltest dir wirklich zuerst die Grundlagen aneignen, was Code-Blöcke, Bedingungen und Schleifen in Delphi angeht.
Ein Ebook dafür wurde dir in diesem Thread schon gepostet.

[Zweitopf]

Du hast da noch ein else drin, dem nichts folgt ausser ein 'end;'.

Nimm das else mal raus, dann sollte es gehen

Du solltest dir wirklich zuerst die Grundlagen aneignen, was Code-Blöcke, Bedingungen und Schleifen in Delphi angeht.
Ein Ebook dafür wurde dir in diesem Thread schon gepostet.

Geht immer noch nicht. :o

Bin das E-Book gerade am lesen...

[inout]

Du musst das else duch ein end; ersetzen, da du ein begin immer durch ein end; abschließen musst.

[BlackHook]

Ich würde vielleicht erstmal paar Grundkenntnisse empfehlen.
Ein Taschenrechner ist das schon die richtige Wahl, allerdings solltest du paar Grundregel lernen, und die schreibweise bei Delphi nicht vergesen.

[Zweitopf]

Bin jetzt gerade am E-Book durcharbeiten. Komme gut voran. Verstehe jetzt auch die Schreibweise in Delphi. Hab aber am meisten Problemen mit if-Statements:

[bayer]

In der Zeile davor fehlt das abschliessende Semikolon