[Error] Unit1.pas(50): Incompatible types: 'Integer' and 'Extended'

@Bass_Dll · Регистрация: 07.12.2012

Author24 — интернет-сервис помощи студентам

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToInt(edit1.Text);
b:=StrToInt(edit2.Text);
if checkbox1.Checked=true then
c:=a*150;
label3.Caption:=IntToStr(c);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
d:=StrToInt(edit1.Text);
f:=StrToInt(edit2.Text);
if checkbox2.Checked=true then
s:=f/150;
label3.Caption:=IntToStr(s);
end;

спасите нуба плииз))
ошибку выдает вот в этой строчке s:=f/150;

@HanDi · 14.01.2013, 15:28

Судя по ошибке, она у тебя возникает на 50 строке, причем тут этот код?

Ладно, кинь раздел var и на какой именно строке ошибка.

@Bass_Dll · 14.01.2013, 15:55 **[ТС]**

а та строчка у меня в программе по счету 50 получается

Добавлено через 1 минуту
ошибка в том, что он не дает поделить второй эдит на 150... пишет вот это [Error] Unit1.pas(50): Incompatible types: 'Integer' and 'Extended'

Добавлено через 22 минуты
ну хелпаните плииз))

@FIL · 14.01.2013, 20:23

Измени тип переменной s на real и строку:

Delphi

1	label3.Caption:=FloatToStr(s);

@HanDi 898 / 345 / 65 Регистрация: 11.02.2012 Сообщений: 1,502
	14.01.2013, 15:28	2
	Судя по ошибке, она у тебя возникает на 50 строке, причем тут этот код? Ладно, кинь раздел var и на какой именно строке ошибка. 0

@Bass_Dll 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 36
	14.01.2013, 15:55 [ТС]	3
	а та строчка у меня в программе по счету 50 получается Добавлено через 1 минуту ошибка в том, что он не дает поделить второй эдит на 150... пишет вот это [Error] Unit1.pas(50): Incompatible types: 'Integer' and 'Extended' Добавлено через 22 минуты ну хелпаните плииз)) 0

	14.01.2013, 20:23