Помогите! Не пойму, в чем дело...

[Baharev]

procedure TForm1.Button1Click(Sender: TObject);

Var
Mmax,           
Mmin,           
Msr             
:Integer;
begin
Mmax:=Query2.FieldByName('MAX OF Moshprivod').AsInteger;
Mmin:=Query2.FieldByName('MIN OF Moshprivod').AsInteger;
Msr:=((Mmax - Mmin)/2)+Mmin;
Edit6.Text:=intTostr(Msr);
end;

Когда компилирую пишет
[Error] Unit1.pas(740): Incompatible types: 'Integer' and 'Extended'
разъясните пожалуйста в чем дело и как решить проблему

[mihali4]

Да вроде все в ошибке сказано...

Msr:=((Mmax - Mmin)/2)+Mmin;

Это явно не Integer...

З.Ы. Код оформляется тэгом для кода - кнопка '#', а не [HTML].

[Baharev]

Ну а как ее исправить можно?! в чем дело?

[mihali4]

М-м-да... Наблюдается переутомление...
Очень просто:

var
...
Msr: float;

[rockedit]

Сообщение от mihali4

М-м-да... Наблюдается переутомление...
Очень просто:

var
...
Msr: float;

Действительно, какой float? это Delphi! real)

[Baharev]

Возможно уже не первый день сижу)) но проблему это не решило
[Error] Unit1.pas(736): Undeclared identifier: 'float' где ее объявить нада чет я вообще не пойму...

[rockedit]

Я же написал, что не float а real!

procedure TForm1.Button1Click(Sender: TObject);

Var
Mmax,           
Mmin             
:Integer;
Msr:real;
begin
Mmax:=Query2.FieldByName('MAX OF Moshprivod').AsInteger;
Mmin:=Query2.FieldByName('MIN OF Moshprivod').AsInteger;
Msr:=((Mmax - Mmin)/2)+Mmin;
Edit6.Text:=FloatToStr(Msr);
end;

Если ты хочешь что переменная у тебя была типа integer и присвоить ей результат деления, то надо использовать round(), еще не мешало бы проверку выполнить, нет ли деления на ноль!

Если заработала ставь '+'

[Baharev]

Как раз в этом и была проблема сам разобрался и еще я тип данных не тот поставил которыи хотел спасибо за помощь