Hi inttostr-Help-,
Delphi-Quellcode:
For Zaehler:=1 to 16 do rot1.Brush.Color:=clRed;
For Zaehler:=14 to 16 do gelb1.Brush.Color:=clYellow;
Wenn du abfragen willst ob Zaehler zwischen 1 und 16 liegt, dann musst du es so machen:
Delphi-Quellcode:
if (Zaehler >= 1) and (Zaehler <= 16) then
rot1.Brush.Color := clRed;
if (Zaehler >= 16) and (Zaehler <= 16) then
gelb1.Brush.Color := clYellow;
Greetz
alcaeus