Forum: Programmieren allgemein
by jfheins,
30. Sep 2004
deine behandlung für rot/gelb wird nie aufgerufen, da bereits if Ampel = rot eintritt, und rot/gelb nur aufgerufen wurde, wenn Ampel<>rot !!!
Forum: Programmieren allgemein
by jfheins,
30. Sep 2004
Fehler gefunden !!!
if s_rot.Brush.Color = clred then // trifft auch bei rot/gelb zu !!!!!
begin
s_gelb.Brush.Color :=clyellow;
end
else // trifft nur bei gelb zu, bei rot/gelb wird's übersprungen !!!
begin
if s_gelb.brush.color =clyellow then
begin
Forum: Programmieren allgemein
by jfheins,
30. Sep 2004
if s_rot.Brush.Color = clred then
begin
s_gelb.Brush.Color :=clyellow;
end
else
begin
if s_gelb.brush.color =clyellow then
begin
s_rot.Brush.Color :=clwhite;
s_gelb.Brush.Color :=clwhite;