Ampelkreuzung

[Popov]

Delphi-Quellcode:

  IF imlrot2.Visible=false then 
  begin
    imlgruen.Visible:=true ; //<<<
    //...
    imogelbrot.Visible:=false ; //<<<
    tiampel.Interval:=5000 ;
  end ;

  if imlgruen.visible=true then 
  begin ;
    imlgruen.Visible:=false ; //<<<
    //...
    imogelbrot.Visible:=true //<<<
  end
  else 
  if imogelbrot.Visible=true then 
  begin ;
    imlgruen.Visible:=false ;  //<<<
    //...
    imogelbrot.Visible:=false ; //<<<

Wenn am Anfang imlrot2.Visible True ist, dann wird imlgruen.Visible True und imogelbrot.Visible False;

Bei der zweiten Anfrage ist imlgruen.Visible True, also werden imlgruen.Visible False und imogelbrot.Visible True. Und das war es dann.