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.