Zitat von
Wolfgang Mix:
Ja, an global habe ich auch schon gedacht, lokal wäre mir das lieber. Geht das?
Danke für die schnelle Antwort.
Wenn's unbedingt lokal sein muss:
(1 - Tag-Eigenschaft verwenden)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
with (Sender as TButton) do
Tag := Tag + 1;
end;
(2 - mit einer veränderbaren typisierten Konstanten)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
{$j+}Counter: Longword = 0;{$j-} //
begin
with (Sender as TButton) do
Counter := Counter + 1;
end;