if then hatası

[melik yıldırım]

bu hatanın sebebi nedir acaba

https://hizliresim.com/6r1rfG
resim linkte

procedure TfrmOgrenci.btnEkleClick(Sender: TObject);

//statik bir değişken tanımla
const s:integer=0;

begin

//eğer listede eleman yoksa sayacı sıfırla
if lvwOgrenciListesi.Items.Count=0 then s:=0; HATALI SATIR 1

//yeni eleman ekle
lvwOgrenciListesi.Items.Add;

//satır içerikleri
//birinci sütun
lvwOgrenciListesi.Items.Item[s].Caption:=edAdSoyad.Text;

//ikinci sütun
lvwOgrenciListesi.Items.Item[s].SubItems.Add(cboBolumu.Text);

//üçüncü sütun
lvwOgrenciListesi.Items.Item[s].SubItems.Add(DateToStr(dtpKayitTarihi.Date));

//sayacı bir arttır
s:=s+1; HATALI SATIR2

end;

[dcc32 Error] kayit.pas(54): E2064 Left side cannot be assigned to
[dcc32 Error] kayit.pas(70): E2064 Left side cannot be assigned to

[ikra]

Constant kullaniraan, deger atayamazsin.
Const S yerine var S kullan.

[melik yıldırım]

Cok tesekkur ederim...

[greenegitim]

aslında kullanabilirsin
{$WRITEABLECONST ON} direktifi ile
http://docwiki.embarcadero.com/RADStudi ... s_(Delphi)

[ikra]

Maymuncukla da kilidi acabilirsin ama anahtar bu isin ehlidir.
Const‘u writable yapacaksak eger, neden constant kullanilsin? Variable bu is icin bicilmis kaftan degil midir?
Eger yanlis biliyorsam dogrusunu ögrenmek isterim.