Проблема в Delphi 2010 с функциями работы со строками

[Likos]

Поставил себе Delphi 2010. Появилась задачка с парсингом html кода. И вот столкнулся с непонятной проблемой.

var j: Integer; s: String;
begin
 s := '<center>';
 j := pos('<center>', s);

Данный код в переменной j выдает не заданное число. Т.е. как j была не определенной, так и остается. Также пробовал воспользоваться функцией AnsiPos, тоже самое. В Delphi 2010 что то сменилось с этой функцией? Давно не работал в нем.

[Kotofff]

У Вас что-то с компилятором !
Именно то, что Вы привели нормально работает !

[GunSmoker]

j ниже используется? Warning-и и hint-ы читали?

[Likos]

Warning'ов нету, hint'ов тоже нет. Я тоже склоняюсь к проблеме самого делфи.
При трассировке кода клавишей F8:

var j: Integer; s: String;
begin
s := '<center>';
j := 0;
j := pos('<center>', s);

он проскакивает строку "j := 0;", вообще не понятно почему

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

j используется потом?
(попробуйте добавить ShowMessage(IntToStr(j)) после парсинга)

Оптимизатор похоже режет.

если надо отключить его для функции то оберните функцию в {$O-}функция{$O+}
если директивы не путаю.

но в релизе(в итоге) советую убрать отключение оптимизации.

[Kotofff]

он проскакивает строку "j := 0;", вообще не понятно почему

потому что компилятор "знает" что объявление var j: Integer; и первое же обнуление j := 0; целочисленной переменной это одно и тоже и не обрабатывает при пошаговом выполнении. Хотя если поставить брэйкпоин на этой строке - он остановится.

[Stilet]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var j: Integer; s: String;
begin

 s := '<center>';
 j := pos('<center>', s);
write(j);
readln;
end.

Только что запустил на Д2010. Результат - 1
Верно?

[GunSmoker]

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

Я тоже склоняюсь к проблеме самого делфи.

Гы. А кто ещё кроме вас тут к этому склоняется?

Правило программиста №1 - сперва ищи баги у себя в голове, а уж потом вали вину на других.