TclForm Oluşturma - Kod hatası çözememe

Sayfayı Yazdır | Pencereyi Kapat

Kod hatası çözememe

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Form Oluşturma
Forum Adı: TclForm Oluşturma
Forum Tanımlaması: Standart bir form oluşturma
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1019
Tarih: 07 Temmuz 2025 Saat 06:42
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Kod hatası çözememe

Mesajı Yazan: Nida Güvercin
Konu: Kod hatası çözememe
Mesaj Tarihi: 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;

}

Cevaplar:

Mesajı Yazan: Harun.krks
Mesaj Tarihi: 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" rel="nofollow - https://www.docs.clomosy.com/Loops