Merhaba arkadaşlar ben bir proje yaptım. Veritabanını access te yaptım ve delphiye bağladım. Ortalama hesaplatacağım ama bir türlü olmuyor
HATA TAM OLARAK: Incompatible types: 'Integer' and 'Real'
Kodlar
var x,y:real;
sonuc:real;
begin
x:=DataModule1.ADOTable7vize.Value;
y:=DataModule1.ADOTable7final.Value;
sonuc:=(x*0.4)+(y*0.6);
DataModule1.ADOTable7ortalama.Value:=sonuc; /// HATA SATIRI BURASI
if (sonuc>=90) or (sonuc<=100) then
begin
DataModule1.ADOTable7durum.Value:='GEÇTİ';
DataModule1.ADOTable7harf.Value:='AA';
end
else
begin
DataModule1.ADOTable7harf.Value:='AB'
end;
end;
Integer and Real Hatası
2
●401
