Variabeln Problem!

[Sharky]

Zitat:

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;

[malo]

Zitat:

Zitat von Sharky

zum einen: Die ganzen else im Code brauchst Du nicht.

Nunja, theoretisch bringen diese else's ja einen Geschwindigkeitszuwachs (immerhin wird die Abfrage nur gestartet, wenn das nicht zutrifft). Praktisch gesehen ist es eh egal, da kann man nichtmal bei einem alten C64 einen Unterschied feststellen, denke ich :mrgreen:

Wobei das mit dem Case auch wieder besser ist ;)
Klugscheißen Ende...

[Zwock]

Nunja, ich mache das nicht aus "Spaß" sondern, weil mein Lehrer mir das so aufgetragen hat. Und da kann es mir egal sein, warum er das verlangt, Tatsache ist dass er es in der nächsten Stunde sehen will ;) *gogo Info LK*. Hab eigentlich mit der Theorie weniger Probleme, nur ist Delphi doch in manchen Sachen anders als ich es bisher von zB PHP kannte ;)