For und While Bedingungen

[TeronG]

Zitat von inttostr-Help-:

Delphi-Quellcode:

if (Zaehler >= 16) and (Zaehler <= 16) then // wenn zähler größer oder gleich 16 UND kleiner oder gleich 16 dann
  gelb1.Brush.Color := clYellow;

Wenn ich diesen Quellcode so benutze geht die Lampe aber nicht aus wenn der Zaehler größer als 16 ist. Woran liegt das?

Evtl. Tippfehler ?? mach mal bei der erste 16 ne 14 ...

Delphi-Quellcode:

if (Zaehler >= 14) and (Zaehler <= 16) then // wenn zähler größer oder gleich 14 UND kleiner oder gleich 16 dann
  gelb1.Brush.Color := clYellow; // Lampe gelb1 auf gelb

und noch n

Delphi-Quellcode:

if (Zaehler > 16) then    // wenn zähler größer 16 dann
begin
  gelb1.Brush.Color:=clWhite;  // Lampe wieder White
  rot1.Brush.Color :=clWhite;  // Lampe wieder White
end;