Выдает ошибку Is not valid integer value

@Helga_ · Регистрация: 08.11.2012

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

Даны три числа. Нужно найти среднее из них. При вводе чисел выдается окно с ошибкой
"is not valid integer point value
Не могу понять в чем причина, помогите пожалуйста

Delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
a2:=StrtoInt(Edit1.Text);
b2:=StrtoInt(Edit2.Text);
c2:=StrtoInt(Edit3.Text);
if (a2>b2)and(b2<c2)
or(a2<b2)and(b2>c2) then
ShowMessage(InttoStr(b2));
 
if (a2>c2)and(c2<b2)
or(a2<c2)and(c2>b2) then
ShowMessage(InttoStr(c2));
 
if (c2>a2)and(a2<b2)
or(c2<a2)and(a2>b2) then
ShowMessage(InttoStr(a2))
end;
 
end.

@HanDi · 08.11.2012, 20:03

Компилируется без ошибок.

@DaMortum · 08.11.2012, 20:13

Смотря что вводите.

@Helga_ · 08.11.2012, 20:15 **[ТС]**

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

Компилируется без ошибок.

Да, но при нажатии на кнопку результат не считает, а выдает ошибку и на этом все..(

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

Смотря что вводите.

Ввожу целые числа

@HanDi · 08.11.2012, 20:16

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

Да, но при нажатии на кнопку результат не считает, а выдает ошибку и на этом все..(

Считает что-то..

Выдает ошибку Is not valid integer value

@Helga_ · 08.11.2012, 20:18 **[ТС]**

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

Считает что-то..

среднее число из всех трех (значение которого между наибольшим и наименьшим)

@HanDi · 08.11.2012, 20:21

А ну теперь понятно, проштудировав код, сразу не взглянул просто.

Он у тебя будет выводить только наибольшее и наименьшее и ничего он не считает, как я понял из всех 3-ех едитов.

@Helga_ · 08.11.2012, 20:29 **[ТС]**

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

А ну теперь понятно, проштудировав код, сразу не взглянул просто.

Он у тебя будет выводить только наибольшее и наименьшее и ничего он не считает, как я понял из всех 3-ех едитов.

Должен выводить именно среднее, а не большее и меньшее

@Игорь[Igor] · 08.11.2012, 21:49

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  a2:=StrtoInt(Edit1.Text);
  b2:=StrtoInt(Edit2.Text);
  c2:=StrtoInt(Edit3.Text);
  if ((b2<a2)and(b2>c2))or((b2>a2)and(b2<c2)) then
  ShowMessage(InttoStr(b2))
  else
  if ((c2<a2)and(c2>b2))or((c2>a2)and(c2<b2)) then
  ShowMessage(InttoStr(c2))
  else
  if ((a2<c2)and(a2>b2))or((a2>c2)and(a2<b2)) then
  ShowMessage(InttoStr(a2))
  else
  ShowMessage('Нет среднего');
end;

@Helga_ · 09.11.2012, 14:27 **[ТС]**

Спасибо всем, я решила. Ошибка выдавалась из-за того что у меня в коде есть еще другие Edit'ы. И процедура ссылалась на них, а не на те которые мне нужно.. Теперь без ошибок все работает

@Helga_ 0 / 0 / 0 Регистрация: 08.11.2012 Сообщений: 5
	09.11.2012, 14:27 [ТС]	10
	Спасибо всем, я решила. Ошибка выдавалась из-за того что у меня в коде есть еще другие Edit'ы. И процедура ссылалась на них, а не на те которые мне нужно.. Теперь без ошибок все работает 0

@HanDi 898 / 345 / 65 Регистрация: 11.02.2012 Сообщений: 1,502
	08.11.2012, 20:03	2
	Компилируется без ошибок. 0

@DaMortum 249 / 154 / 31 Регистрация: 07.10.2012 Сообщений: 401
	08.11.2012, 20:13	3
	Смотря что вводите. 0

@Helga_ 0 / 0 / 0 Регистрация: 08.11.2012 Сообщений: 5
	08.11.2012, 20:15 [ТС]	4
	Сообщение от HanDi Компилируется без ошибок. Да, но при нажатии на кнопку результат не считает, а выдает ошибку и на этом все..( Сообщение от DaMortum Смотря что вводите. Ввожу целые числа 0

@HanDi 898 / 345 / 65 Регистрация: 11.02.2012 Сообщений: 1,502
	08.11.2012, 20:16	5
	Сообщение от Helga_ Да, но при нажатии на кнопку результат не считает, а выдает ошибку и на этом все..( Считает что-то.. 0

@Helga_ 0 / 0 / 0 Регистрация: 08.11.2012 Сообщений: 5
	08.11.2012, 20:18 [ТС]	6
	Сообщение от HanDi Считает что-то.. среднее число из всех трех (значение которого между наибольшим и наименьшим) 0

@HanDi 898 / 345 / 65 Регистрация: 11.02.2012 Сообщений: 1,502
	08.11.2012, 20:21	7
	А ну теперь понятно, проштудировав код, сразу не взглянул просто. Он у тебя будет выводить только наибольшее и наименьшее и ничего он не считает, как я понял из всех 3-ех едитов. 0

@Helga_ 0 / 0 / 0 Регистрация: 08.11.2012 Сообщений: 5
	08.11.2012, 20:29 [ТС]	8
	Сообщение от HanDi А ну теперь понятно, проштудировав код, сразу не взглянул просто. Он у тебя будет выводить только наибольшее и наименьшее и ничего он не считает, как я понял из всех 3-ех едитов. Должен выводить именно среднее, а не большее и меньшее 0

Опции темы