больше меньше. Никак не могу задать -1.

[robin39]

Товарищи, никак не могу понять в чем дело. нужно ограничение -1<x<=2
вот код.


procedure TForm1.btn1Click(Sender: TObject);
begin

if (((edt1.text) > inttostr(-1)) and ((edt1.text) <= intToStr(2))) then
begin edt2.Text:=IntToStr(1)
end
else begin
edt2.text:='не верно'
end;
end;

почему то возникают проблемы с минус единицей. Когда ввожу минус 2, всеравно в Edit2 появляется 1.

[Serj_D]

(StrToInt(edt1.text) > -1) and (StrToInt(edt1.text) <= 2) ?

[robin39]

Спасибо большое, всё так. Просто опыта особого нет, вот и напутал)