Kod hatası çözememe

;


   Burda o kadar uğraştığım halde hatayı çözemedim. 
Hata kodu:15.13


var
  listeForm : TclStyleForm;
  memoListe : TclMemo;
  btnOrtalamaHesapla : TclButton;

void OrtalamaHesapla;
var
  i, toplam, sayi, notDeger : Integer;
  satir, notStr : String;
  ortalama : Real;
{
  toplam = 0;
  sayi = 0;

  for (i = 0; i < ogrenciListesi.Count; i++)
  {
    satir = ogrenciListesi.Strings;
    notStr = ClGetStringAfter(satir, '-');
    notDeger = StrToInt(notStr);
    toplam = toplam + notDeger;
    sayi = sayi + 1;
  }

  if (sayi > 0)
  {
    ortalama = toplam / sayi;
    ShowMessage('Sınıf Ortalaması: ' + FloatToStr(ortalama));
  }
  else
  {
    ShowMessage('Henüz hiç not girilmedi.');
  }
}

{
  listeForm = TclStyleForm.Create(Self);

  memoListe = TclMemo.Create(listeForm);
  listeForm.clGetChild(memoListe);
  memoListe.Align = alClient;
  memoListe.Text = ogrenciListesi.Text;

  btnOrtalamaHesapla = listeForm.AddNewButton(listeForm, 'btnOrtalamaHesapla', 'Ortalama Hesapla');
  btnOrtalamaHesapla.Align = alBottom;
  listeForm.AddNewEvent(btnOrtalamaHesapla, tbeOnClick, 'OrtalamaHesapla');

  listeForm.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Nida Güvercin Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 12 Mayıs 2025 Durum: Aktif Değil Puanlar: 11	Mesaj Seçenekleri Yanıt Yaz Alıntı Nida Güvercin Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Kod hatası çözememe Gönderim Zamanı: 21 Mayıs 2025 Saat 21:04
	Burda o kadar uğraştığım halde hatayı çözemedim. Hata kodu:15.13 var listeForm : TclStyleForm; memoListe : TclMemo; btnOrtalamaHesapla : TclButton; void OrtalamaHesapla; var i, toplam, sayi, notDeger : Integer; satir, notStr : String; ortalama : Real; { toplam = 0; sayi = 0; for (i = 0; i < ogrenciListesi.Count; i++) { satir = ogrenciListesi.Strings; notStr = ClGetStringAfter(satir, '-'); notDeger = StrToInt(notStr); toplam = toplam + notDeger; sayi = sayi + 1; } if (sayi > 0) { ortalama = toplam / sayi; ShowMessage('Sınıf Ortalaması: ' + FloatToStr(ortalama)); } else { ShowMessage('Henüz hiç not girilmedi.'); } } { listeForm = TclStyleForm.Create(Self); memoListe = TclMemo.Create(listeForm); listeForm.clGetChild(memoListe); memoListe.Align = alClient; memoListe.Text = ogrenciListesi.Text; btnOrtalamaHesapla = listeForm.AddNewButton(listeForm, 'btnOrtalamaHesapla', 'Ortalama Hesapla'); btnOrtalamaHesapla.Align = alBottom; listeForm.AddNewEvent(btnOrtalamaHesapla, tbeOnClick, 'OrtalamaHesapla'); listeForm.Run; }

Harun.krks Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 04 Mart 2025 Durum: Aktif Değil Puanlar: 30	Mesaj Seçenekleri Yanıt Yaz Alıntı Harun.krks Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 22 Mayıs 2025 Saat 00:25
	Merhaba Nida, For döngüsü kullanımında bir hata alıyorsun syntax yapısından dolayı. Clomosy'de kullanım örneği için link bırakıyorum https://www.docs.clomosy.com/Loops