tip hatası

[mertcenk]

SnPuan.n_1 := eksitosifir( Dogru - (yanlis / StrToInt(cb1.GetValues2Wert)));

bu satırda hata veriyor....


SnPuan : double
n_1: double

"eksitosifir" fonksiyon...eger eksi bir deper dönerse sıfır yapıyor...

dogru , yanlis : double

cb combowalue cb1.GetValues2Wert, burdan da gelen değer string



hata nedir

[t-hex]

SnPuan : double

double bir alan üstünde indexer kullanamazsınız. array olması lazım.

ayrıca EksiToSifir diye bir fonksiyon yazmaniza gerek yok. Max(0, deger) şeklinde kullanabilirsiniz. negatif olursa 0 daha büyük olduğu için 0 döner.

Hata mesajını da yazarsanız daha kolay çözüm bulunur.