Не выполняется условие на равенство текстовой строки от сервера

[Illusiony]

Ситуация:
1) Посылаю скрипту php на сервере данные для обработки

LoginInfo:=TStringList.Create;
            LoginInfo.Add('login='+St_login);
            LoginInfo.Add('passw='+St_pass);
            str:=idhtp1.Post('http://test1.ru/golos/delphi/status_server.php',LoginInfo);

2)Получаю ответ:
Один из 3х вариантов:On1,Off1 или Off2
3) Ответ действительно получаю
4) при попытке сравнить результат и изменить цвет текста логика не работает:

if (str='On1' )then begin
             lbl12.Font.Color:=clGreen;
            end
            else begin
             lbl12.Font.Color:=clRed;
            end; }
lbl12.Caption:=str;

Пробовал менять местами изменение цвета и вывод в лабел:
lbl12.Font.Color:=clGreen;
lbl12.Caption:=str;

и наоборот:
lbl12.Caption:=str;
lbl12.Font.Color:=clGreen;

Цвет то меняется, но не по логике, то есть сравнение на 'Оn1' не проходит, хотя в лабеле именно это и отображается Оn1.

Что не так?

[northener]

Пробела там в конце случайно нет? Или другого какого-нибудь служебного символа.

[lomastr_]

если не равно значит не равно, проверить на длину и на сами символы, например О не то..

[Illusiony]

Странно, действительно длинна 4. Но в php я делал так:

echo "On1";

Откуда еще 1 символ?
Попробовать просто обрезать последний символ, или первый?

Удалил первый символ:

Delete(str,1,1);

Откуда же берется "невидимый" символ в начале строки( раз невидимый значит какой то специальный)?

Надо вспомнить как определить код символа.

[IliaIT]

chr() и ord() вам помогут.
в частности i:=ord(str[1]);
где i код первого символа.

p.s. использовать str в качестве переменной плохая идея в дельфи, так как это зарезервированная функция и вы её переопределяете.

[disbnt]

Используйте функцию pos().Будет проще

  if pos('On1',str) > 0 then ...