Wer findet den Fehler?

[Darlo]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ampelStatus := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  ampelRot: array[0..5] of TShape;
  ampelGelb: array[0..5] of TShape;
  ampelGruen: array[0..5] of TShape;
  i: Integer;
begin
  for i := 0 to 5 do
    begin
      ampelRot[i] := TShape(FindComponent('rot'+inttostr(i+1)));
      ampelGelb[i] := TShape(FindComponent('gelb'+inttostr(i+1)));
      ampelGruen[i] := TShape(FindComponent('gruen'+inttostr(i+1)));
    end;

  case ampelStatus of
    0:  begin
          for i := 0 to 5 do
            begin
              ampelRot[i].Brush.Color := clRed;
              ampelGelb[i].Brush.Color := clBlack;
              ampelGruen[i].Brush.Color := clBlack;
            end;
          timer1.Interval := 6000;
          ampelStatus := 1;
        end;
    1:  begin
          for i := 0 to 5 do
            begin
              ampelRot[i].Brush.Color := clRed;
              ampelGelb[i].Brush.Color := clYellow;
              ampelGruen[i].Brush.Color := clBlack;
            end;
          timer1.Interval := 2000;
          ampelStatus := 2;
        end;
    2:  begin
          for i := 0 to 5 do
            begin
              ampelRot[i].Brush.Color := clBlack;
              ampelGelb[i].Brush.Color := clBlack;
              ampelGruen[i].Brush.Color := clGreen;
            end;
          timer1.Interval := 6000;
          ampelStatus := 3;
        end;
    3:  begin
          for i := 0 to 5 do
            begin
              ampelRot[i].Brush.Color := clBlack;
              ampelGelb[i].Brush.Color := clYellow;
              ampelGruen[i].Brush.Color := clBlack;
            end;
          timer1.Interval := 2000;
          ampelStatus := 0;
        end;
  end;

end;

Entweder mit exit arbeiten oder rückwärts anfangen...

[s.h.a.r.k]

Zitat von Darlo:

Entweder mit exit arbeiten oder rückwärts anfangen...

Wieso? Muss man doch in Delphi gar nicht. Es wird doch nur der Fall angesprungen, der auch wirklich vorliegt und keine weiteren danach.

PS: Es gibt auch [delphi]-Tags

[himitsu]

Jupp, das CASE macht nur das, was zutrifft und sonst nix.

Bei den vielen IFs hätte man zwar mit EXIT arbeiten können, aber anstatt sowas Krankes zu machen, wäre es mit ELSE besser und vorallem übersichtlicher.

[Darlo]

Zitat von s.h.a.r.k:

Zitat von Darlo:

Entweder mit exit arbeiten oder rückwärts anfangen...

Wieso? Muss man doch in Delphi gar nicht. Es wird doch nur der Fall angesprungen, der auch wirklich vorliegt und keine weiteren danach.

PS: Es gibt auch [delphi]-Tags

Danke für den [delphi]-Hinweis, gleich editiert. Das rückwärts war auf die ursprüngliche Variante mit den if-defs bezogen.

Gruß