Variabeln Problem!

[Sharky]

Zitat von Zwock:

... euch nicht weiter mit solchen Anfänger-Fragen belästigen zu müssen

Keiner hat hier etwas gegen Anfänger-Fragen! (naja, einige schon. Aber auf die achten wir nicht *g*)

Zitat:

in den Griff bekommen.

Das ist fein.
Ich hätte das jetzt auf die schnelle so gemacht:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    btn_Schalten: TButton;
    SRot: TShape;
    SGelb: TShape;
    SGruen: TShape;
    procedure FormCreate(Sender: TObject);
    procedure btn_SchaltenClick(Sender: TObject);
  private
    { Private-Deklarationen }
    VSchalten: integer;
    procedure FormInit;
    procedure UpDateAmpel;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn_SchaltenClick(Sender: TObject);
begin
  Inc(VSchalten);
  UpDateAmpel;
end;

procedure TForm1.FormInit;
begin
  VSchalten := 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FormInit;
  UpDateAmpel;
end;

procedure TForm1.UpDateAmpel;
begin
  if (VSchalten = 4) then
  begin
    VSchalten := 0;
  end;
  case VSchalten of
    0:
    begin
      SRot.Brush.Color := clred;
      SGelb.Brush.Color := clblack;
      SGruen.Brush.Color := clblack;
    end;
    1:
    begin
      SRot.Brush.Color := clred;
      SGelb.Brush.Color := clyellow;
      SGruen.Brush.Color := clblack;
    end;
    2:
    begin
      SRot.Brush.Color := clblack;
      SGelb.Brush.Color := clblack;
      SGruen.Brush.Color := clgreen;
    end;
    3:
    begin
      SRot.Brush.Color := clblack;
      SGelb.Brush.Color := clyellow;
      SGruen.Brush.Color := clblack;
    end;
  end;
end;