Analoguhr

[Jens Schumann]

Hallo MrFish,
Du solltest Dir angewöhnen aus den Variablen Objektfelder zu machen.
So wie Du die Variablen jetzt deklariert hats handelt es sich um Globale-Variablen.
In der OOP gehören Globale-Variablen zu den 42 Totsünden.

Code:

SecWinkel : integer; 
  MinWinkel : Integer; 
  StdWinkel : Integer; 
  SecWinkelAlt : integer; 
  MinWinkelAlt : integer; 
  StdWinkelAlt : integer; 
  Zeit : String; 
  XPos : integer; 
  YPos : Integer; 
  Std : Integer; 
  Min : Integer; 
  Sec : Integer;

Wenn Du die Variablen als Objektfelder deklarierst würde Deine Formularklasse wie folgt aussehen:

Delphi-Quellcode:

  TAnaloguhr = class(TForm)
    Edit1: TEdit;
    Uhr: TTimer;
    procedure UhrTimer(Sender: TObject);
  private
    { Private-Deklarationen }
    FMinWinkel : Integer; 
    FStdWinkel : Integer; 
    FSecWinkelAlt : integer; 
    FMinWinkelAlt : integer; 
    FStdWinkelAlt : integer; 
    FZeit : String; 
    FXPos : integer; 
    FYPos : Integer; 
    FStd : Integer; 
    FMin : Integer; 
    FSec : Integer; 
  public
    { Public-Deklarationen }
  end;

Jetzt musst Du noch im Source vor die Variablen das F schreiben. Das F gehört zu einer Nameskonvention. Alle Objektfelder sollten mit einem großen F beginnen. So wie alle Klassen mit einem großen T beginnen.