Hi @all!
Ich soll in Informatik unter Delphi eine Ampel schreiben, sie soll nur aus ifclausen bestehen, mit der ersten, die pro klick weiter schaltet, von rot auf gelb, auf grün klappt das wunrderbar, bei der zweiten soll die von rot auf rot/gelb dann auf grün, von grün dann auf gelb dann auf rot
das probl. habe ich analysiert, sobald ich zwei felder aktiv habe macht der nix mehr, hier mein code der beim button steht
Delphi-Quellcode:
if s_rot.Brush.Color =clred
then
begin
s_gelb.Brush.Color :=clyellow;
end
else
if s_gelb.brush.color =clyellow
then
begin
s_rot.Brush.Color :=clwhite;
s_gelb.Brush.Color :=clwhite;
s_gruen.brush.color :=clgreen;
end
else
if s_gruen.brush.color =clgreen
then
begin
s_gruen.Brush.Color :=clwhite;
s_gelb.Brush.Color :=clyellow;
end
else
begin
s_gelb.Brush.color :=clwhite;
s_rot.brush.color :=clred
end
was is falsch?
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]