Delphi - Uebung 1

Einführung in Delphi
Übung 1.2 - Algorithmen

S. Spolwig

Projekt öffnen und erweitern:

Übung 1.2 - Entscheidungen (if - then - else)

Im letzten Ausbauschritt soll ein Zähler eingebaut werden, der die Blinkvorgänge mitzählt, um bei bei bestimmten Situationen automatisch abzuschalten.

   Wenn der Zähler den Wert 10 erreicht,
   dann eine Warnung ausgegeben
   sonst
     wenn der Wert 15 erreicht ist,
     dann eine Notabschaltung ausführen
     ansonsten Zählerwert anzeigen

'Ceci n'est pas une lampe'

procedure TFensterFrm.Blinken3;
//--------------------------------------
var zaehler : integer;
begin

repeat
GelbPnl.Color := clYellow;
Zeit.SetPause(200);
GelbPnl.Color := clBlack;
Zeit.SetPause(200);

zaehler := zaehler + 1;    // Zaehler erhoehen

if zaehler = 10
then MeldePnl.Caption := 'Notabschaltung in 5 Sekunden!!'
else
    if zaehler = 15
    then
      begin
        MeldePnl.Caption := 'Notabschaltung!!!!';
        BlinkenAus := true;
      end
    else MeldePnl.Caption := inttostr(zaehler); // Panel kann nur
                                                 // strings anzeigen
until BlinkenAus = true;
end;

Welche Anweisung fehlt hier noch, damit der Algorithmus auch sicher funktioniert?