Deutsches Lazarusforum

Danke erstmal an alle ;)
Das mit dem true und false funktioniert jetzt einwandfrei (:
Bei dem Case Modell habe ich es leider nicht geschafft.
Mein Quelltext sieht jetzt wiefolgt aus:
procedure TForm1.Button1Click(Sender: TObject);
var x : integer;
begin
case x of
0:begin
Shape1.Brush.Color ...

Das verstehe ich als unerfahrener Lazarus Nutzer aber nocht nicht, habe mich allerdings an einen weiteren Versuch gewagt, vielleicht könnt ihr den ja sonst so verbessern, dass er klappt, die Ampel schaltet wieder nur bis rot und gelb zusammen leuchten:

procedure TForm1.Button1Click(Sender: TObject ...

Dann funktionierts aber immer noch nicht wenn es so aussieht:
if Shape1.Brush.Color = clWhite
then Shape1.Brush.Color := clRed
else

//Du testest ob rot gesetzt is, das ist auch wahr fuer rot-gelb.
if Shape1.Brush.Color = clRed
then Shape2.Brush.Color := clYellow
// Dann kommt ein ELSE.
else ...

Kannst du mir nicht vielleicht auch helfen?
Will weiter machen

Das ist doch aber genau so, wie ich das auch habe?
Könntest du das ggf. so verbessern, dass es funktioniert, dann sehe ich meinen Fehler bestimmt am besten.
Ich kann dir ja mal den ganzen Quelltext einfügen, dann kannst du es dir mal schnell anschauen, wäre echt lieb.
Was mir allerdings wichtig ist ...

Das mit den Klammern habe ich auch schon auspropiert, sah dann so aus:
if (Shape1.Brush.Color = clRed) and (Shape2.Brush.Color = clYellow)

Funktioniert aber auch nicht. Da ist die Fehlermeldung zwar weg, allerding springt die Ampel nur auf rot und dann von rot auf rot-gelb.
Danach geht es nicht ...

Hallo,
Ich würde gerne wissen, was in dem folgenden Quelltext falsch ist.
Bis zu der entsprechenden Zeile funktioniert auch alles einwandfrei, aber in dieser Zeile:
Shape1.Brush.Color = clRed and Shape2.Brush.Color = clYellow ist irgendwo der "Wurm drin"
Es geht um eine Ampelprogrammierung, welche ...