Integer and Real Hatası

[Ra_eM]

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;

[unicorn64]

ADOTable7ortalama (yani muhtemelen tablodaki ortalama alanı) integer tipli, ancak sonuc değişkeni real tipli olduğundan
real değeri integer alana atamaya çalıştığınız için Incompatible types: 'Integer' and 'Real' (uyumsuz tipler Integer ve Real) hatasını alıyorsunuz...

[orhancc]

Tablodaki alanın tipini değiştir düzelir veya alandaki tipine göre dönüşüm yapacaksın.

Kod: Tümünü seç

var
  sonuc : Real ;
  myI:Integer;
begin
  sonuc := 10.25;
  myI := StrToInt(FormatFloat('0',sonuc));