Delphi Taschenrechner

[BlackHook]

Jungs Ihr bringt Ihn durcheinander.
Es fehlt in seinem Beispiel gar nichts, es sei denn er möchte es um weitere Befehle erweitern.

Beispiel

If IsDriveReady ('S') then
 begin
   CoolTrayIcon1.IconVisible := True;
   Application.ShowMainform := false;
   timer1.enabled := true;
   timer1.Interval := 1000;
   Sekunden := 60 ;
 end
 else
   CoolTrayIcon1.MinimizeToTray := false;
         
         
 // WICHTIG!!!    Kein End nach else

wenn du nach else ein begin end einbauen willst weil du mehrere Befehle ausführen willst dann erst muss es mit ; enden.
Bei

begin
end
else
dein Befehl  ;

schliesst du die Schleife mit dem "dein Befehl" ab

Hier noch ein anderes Beispiel , etwas erweitert.

var a:integer;
begin
  if a = 1 then
    begin
    end
  else if a=2 then
    begin
    end
  else if a=3 then
    begin
    end
end;

@Pinkywesen In deinem Bild kann ich dein Fehler sehen.
Ich habe keine Lust dein Code zu tippen.
Fehler in deiner markierten Zeile.
Du öfnest mit beginn, bearbeitest deine Befehle, schliesst aber nicht ab die Schleife, haust aber ein else in eine Unterschleife. So geht es nicht.
Es gibt zwar viele Wege nmach Rom, eine kleine KOrrektur aber bringt dich weiter.
Tausche deine markierte Zeile mit der >Zeile
else

Schon geht es.


Zu dem Code sage ich nun nichts, du fängst gerade an, also solltest du auf die Funktionalität achten, alles Andere ist erstmal nicht so wichtig.

[inout]

Noch ein paar allgemeine Hinweise:
Du kannst einen Integer-Überlauf so nicht einfach abfangen.
Das machst Du am besten mit einen try..except-Block und fängst die Exception EIntegerOverflow ab.
Dann solltest Du Dir auch noch angewöhnen lokale-Variablen zu benutzen und dein "Problem"/Aufabe in kleine Teilaufgaben (Funktionen, Prozeduren) zu unterteilen. Bei Dir bietet sich für den Rechenoperator z.B. ganz gut ein enum an und eine Funktion, welche Dir den entsprechenden Operator liefert, dann sparst du Dir auch die ganzen OnClick-Events.

[kampfgumi]

Wenn du es bis jetzt immernoch nicht hinbekommen hast kann ich dir ein kleines Tut schreiben was die Grundlagen erklärt und auf einem kleinen Rabatt-Rechner basiert.
Schreib einfach ne PN bei Bedarf.

[Zweitopf]

Habe jetzt den Taschenrechner fertig gecodet. Funktioniert soweit. Hat jemand Vorschläge was ich noch einbauen könnte? Oder was für ein anderes Programm ich machen könnte?

THX an alle für ihr Hilfe!