Kreuzungs Ampel Problem

[zeras]

Zitat von Helmi:

auch wenn beim erzeugen der Instanz die Variablen initialisiert werden, aber du solltest vielleicht
die Variable "FPhase" im Create initialisieren (theoretisch steht sie aber auf apRot)

oder aber einen else Zweig im case einfügen und dann auf Default setzen?

[thejacensolo]

Diese Klassenbestimmung ist definitiv noch ein bisschen zu hoch für mich(info lk E1)
Wie gesagt funktioniert alles super, also wollte ich noch ein Auto reinfügen. gesagt getan, schon will er nicht mehr kompilieren da steht "fertig kompiliert " aber die Form wird nicht gezeig. Ohne den Auto befehl (ausgeklammert) klappt es wider normal.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Rot1.visible := true;
  Rot2.visible := false;
  rot3.visible := true;
  Rot4.visible := false;
  Gelb1.visible := false;
  Gelb2.Visible := false;
  Gelb3.Visible := false;
  Gelb4.Visible := false;
  Gruen1.visible := false;
  Gruen2.visible := true;
  Gruen3.visible := false;
  Gruen4.visible := true;
  Rotgelb1.visible := false;
  Rotgelb2.visible := false;
  Rotgelb3.visible := false;
  Rotgelb4.visible := false;
  timer1.enabled := true;
   repeat
    begin
    Auto.left := Auto.left + 23;
    end;
    until
    gruen2.visible = false;
end;

[DeddyH]

Das Auto hat ja auch keine Zeit, sich zu zeichnen, da dann sofort die nächste Lageänderung kommt.