{$J+} ile mümkün imiş
procedure TForm1.Button1Click(Sender: TObject);
{$J+}
const
Count: Integer = 0;
begin
Inc(Count);
label1.Caption:= inttostr(Count)
end;
@Kılıç amac ne ki, static zaten sabit manasina gelmiyor mu, ha fonksiyon icinde ha ana govde de tanimlanmis.
Fonksiyona girerken değişkenin varsayılan bir değer almasını sağlıyor önceki değerinin korunması sağlıyor. Daha sonra fonksiyon içerisinde değişikliğe uğrayabiliyor.
Fonksiyon tekrar çağrıldığında içindeki değişken önceki değerini hatırlasın. Global değişken kullanmak zorunda kalmayalım. Const olarak görünse de aslında sabit değil. Değişken olarak kullanılıyor