[helga_]

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

Код:

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;

[PhoeniX]

Разумно предположить, что пустая строка не является правильным числом. А именно пустой строке может быть равен один из операндов.
Мораль: Проверяйте вводимые пользователем значения.

[helga_]

Уже проверяла. Ввожу в строки целые числа, но ошибка все равно вылетает..(

[Hengenvaara]

Именно при вводе или при нажатии на кнопку?

[helga_]

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

Именно при вводе или при нажатии на кнопку?

при нажатии на кнопку

[Hengenvaara]

Сейчас скопировала код, ошибок не выдает... А числа большие?

З.Ы. И у Вас немного напутано с условиями...

[helga_]

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

Сейчас скопировала код, ошибок не выдает... А числа большие?

Странно, я вроде тоже думаю все правильно, у меня Delphi portable, не может из-за этого не работать?

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

З.Ы. И у Вас немного напутано с условиями...

Это возможно, я только учусь, буду благодарна, если подскажите, как лучше.

[helga_]

а числа не большие однозначные

[Hengenvaara]

Я вобщем-то тоже только учусь поэтому не могу больше ничего предположить...
P.S. вот это работает:

Код:

if ((a2>b2)and(b2>c2))
or((a2<b2)and(b2<c2))     then
ShowMessage(InttoStr(b2)) else

if ((a2>c2)and(c2>b2))
or((a2<c2)and(c2<b2))     then
ShowMessage(InttoStr(c2)) else

if ((c2>a2)and(a2>b2))
or((c2<a2)and(a2<b2))     then
ShowMessage(InttoStr(a2));

[helga_]

Ничего не пойму, у меня и этот вариант не работает..((
А попробую установить Delphi может в этом причина, код один и тот же...

[Hengenvaara]

А что делает первая кнопка?
И вообще, было бы интересно глянуть на весь текст программы.
Еще можно создать новый проект, кинуть на него 3 эдита и две кнопки и скопировать в онклик второй кнопки только этот код. Если и так будет та же ошибка, то может и правда, с делфи фигня.

[helga_]

вот программа

[Hengenvaara]

У Вас процедура ссылается на Edit1, Edit2 и Edit3. А должна на Edit2, Edit3 и edit4.

Код:

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

if ((a2>c2)and(c2>b2))
or((a2<c2)and(c2<b2))     then
ShowMessage(InttoStr(c2)) else

if ((c2>a2)and(a2>b2))
or((c2<a2)and(a2<b2))     then
ShowMessage(InttoStr(a2));
end;

[helga_]

Ой, действительно, спасибо большущее, начало работать)))))

[Hengenvaara]

Ура =) Рада была помочь =)