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.