Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
20. Sep 2005
Keiner hat hier etwas gegen Anfänger-Fragen! (naja, einige schon. Aber auf die achten wir nicht *g*)
Das ist fein.
Ich hätte das jetzt auf die schnelle so gemacht:
type
TForm1 = class(TForm)
btn_Schalten: TButton;
SRot: TShape;
Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
20. Sep 2005
Hai Zwock.
Immer schön alle Antworten lesen die Du bekommst! ;-)
Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
20. Sep 2005
Hai Zwock,
zum einen: Die ganzen else im Code brauchst Du nicht. Dann: Du darfst deine Variable in dem OnClick des Buttons nich immer auf 0 setzen! Sonst kann sie ja nie über den Wert 1 kommen. Und zu guter letzt: Setze die Abfrage ob die Variable den Wert 4 hat ganz an den Anfang (unter das INC(VSchalten)).
Sorry, das mit dem "es fehlt ein End; war für etwas anderes als diesen Thread...
Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
20. Sep 2005
Hai Zwocke,
malo hat es ja schon beschrieben. Ich würde das ganze dann so mache:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
VSchalten: integer;