Zitat von
sakura:
...
Genau.
Und um so etwas zu vermeiden Initialisiert man solche globalen Werte gleich. Das geht zB. im Create (zB.: TFormX.FormCreate(...).
Wenn man es Einfacher haben will kann man auch die Tags der Komponenten missbrauchen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
// - alles was grösser oder keiner als Null ist ist wahr
// - Null ist Unwahr
Button1.Tag := not Integer( LongBool(Button1.Tag) );
Button1.Caption := inttostr(Button1.Tag);
end;
Die Tags sind mit 0 (Null) voreingestellt.
