Ошибка в POS

[KREGI]

Utkin, не понимаю почему тогда этот же код работал... Ладно щас придумаю что нить.

Спасибо Вам всем за помощь.
Мораль - не пишите с просони ))

[Serge_Bliznykov]

Utkin, в данном случае то, что Edit1.Text - это свойство - никак не влияет!!
я на 99% уверен, что ошибка в чём то другом!!!!

вот 100% рабочий код!

var v : string;
begin
  v := Edit1.Text;
  if pos(Edit1.Text, v)<>0 then
    Edit1.Text := 'тест1!'
  else
    Edit1.Text := 'тест2!';
end;

KREGI, дай завершённый кусок кода, посмотрим...

[Utkin]

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

Utkin, в данном случае то, что Edit1.Text - это свойство - никак не влияет!!
я на 99% уверен, что ошибка в чём то другом!!!!

вот 100% рабочий код!

var v : string;
begin
  v := Edit1.Text;
  if pos(Edit1.Text, v)<>0 then
    Edit1.Text := 'тест1!'
  else
    Edit1.Text := 'тест2!';
end;

KREGI, дай завершённый кусок кода, посмотрим...

Возможно. Дело в автопреобразовании. Чтобы таких ошибок не возникало нужно использовать промежуточную переменную и никаких проблем. Повторюсь, у меня такие заклины тоже были и формально Дельфи права.

[KREGI]

v:=IdHTTP1.Post('http://site.ru/login.php',SL);
 if Pos(Edit1.Text,v)<>0
 then
  begin
  Memo1.Lines.Add('Вошли');
  Form1.Visible:=False;
  Application.CreateForm(TForm2, Form2);
  Form2.Visible:=True;
  end
 else Memo1.Lines.Add('Не вошли');

Это проверка авторизации на сайте. раньше работала.

[mihali4]

А переменная V значение получает?

[Serge_Bliznykov]

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

А переменная V значение получает?

+1

KREGI
да, вроде бы всё пристойно!
А эта конструкция не компилится или не работает?!
если компилится - так поставьте точку останова и посмотрите, что там в переменной v получается!

[Stilet]

KREGI

Научись работать с отладчиком.
Что мешает поставить breakpoint на if Pos(Edit1.Text,v)<>0
и посмотреть чему равны параметры?

[Пепел Феникса]

ребята, стоп.

Креги, в коде поста №24 выдели строки где ошибки, и напиши их как комментарий.

в Pos можно пихать св-ва.
так как там не var параметры.

[KREGI]

v:=IdHTTP1.Post('http://site.ru/login.php',SL);
 if Pos(Edit1.Text,v)<>0 //при компиляции после первой скобки ошибка [Error] Unit2.pas(52): Missing operator or semicolon ,так же эта же ошибка везде где есть pos 
 then
  begin
  Memo1.Lines.Add('Вошли');
  Form1.Visible:=False;
  Application.CreateForm(TForm2, Form2);
  Form2.Visible:=True;
  end
 else Memo1.Lines.Add('Не вошли');

Так эта же ошибка есть во всех строках где есть pos.

[Serge_Bliznykov]

1)
"меня терзают смутные сомнения..."
а уж не переопределили ли Вы, вольно или невольно функцию Pos ?!!
для проверки правой мышкой на слово Pos и выберите верхний пунктик "Find declaration"... Если открылся модуль SYSTEM значит моё предположение неверно,
если любой другой (особенно Ваш) - разбирайтесь, кто посмел своей функции дать такое же имя, как системной функции!
Кстати, когда набираете Pos( и нажимаете Ctrl-Shift-Пробел
что видите? Должно быть хинтик: "Substr: string; S: string"

2) если вышесказанное не подтвердится, тогда, что, если в месте, где выдаётся ошибка
заменить на такой вариант:
if Pos(' ',v)<>0 then
а на такой ?
if Pos(Edit1.Text,'-')<>0 then
а на такой ?
if Pos('test','-')<>0 then

я прямо теряюсь в догадках.. ;(

p.s. может сделаете малюсенький тестовый проект с ошибкой компиляции, запакуете и выложите сюда, на форум?..