Kod hatas� ��zememe : Merhaba Nida,For döngüsü kullanımında...

Thu, 22 May 2025 00:25:27 +0000

Yazar: Harun.krks
Konu: 1019
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

Kod hatas� ��zememe : Burda o kadar uğraştığım halde...

Wed, 21 May 2025 21:04:50 +0000

Yazar: Nida G�vercin
Konu: 1019
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;

}

Clomosy | Forum : Kod hatas� ��zememe

Kod hatas� ��zememe : Merhaba Nida,For döngüsü kullanımında...

Kod hatas� ��zememe : Burda o kadar uğraştığım halde...