Всем здрасти.
Поставила тут на днях Delphi 2010 триальную версию (30 дней). Пробую старый код (Delphi 7) перевести. Почитала про всякие сложности, про Unicode... А застопорилась на бональном If!    Вот кусочек:


Так вот условие выполняется, но в тело не заходит. Проходила пошагово - не заходит. Просто ставила значение True, тогда работает. Оптимизацию кода отключала и в свойствах проект, и {$O-} писала, не помагло.

Подскажите, пожалуйста, что не так?

в юникоде?

Какую кнопку жмакали????

Ptica_Oz, в 2k9 работает... При условии что реально передается 'Hello'
Ну только название функции поменять надобно, 
function Function(stParam: ansistring; ...): boolean;
да ";" поставить...
Result := True

Показывай всю функцию... и вызовы

Это сообщение отредактировал(а) ~FoX~ - 28.6.2010, 20:36

эм, затрудняюсь ответить... но в Watch List вырожение stParam = 'Hello' определяется как true



и F7 и F8


Да нет больше в функции ничего, она только и делает, что слово проверяет, пока... а находится она в dll...

загвоздка именно в операции сравнения строк... 
пробовала так:


i  всегда получает значение -1
как можно сравнить строки типа AnsiString?

сделала так:


Заработало, но как-то это громоздко. Может кто что умного посоветует...

Удивительно! Только сейчас разобрался в чем дело.
Дело в том, что, как известно в строках в дельфи помимо её символов и завершающего нуля в начале хранятся 2 интеджера: счетчик ссылок на данный экземпляр строки и количество символов в ней. Однако с приходом юникода ситуация немного изменилась и добавился еще один интеджер - кодировка строки. Из-за этого нововведения делфи присравнении срок сперва преобразует их в юникод на основании кодировки строки, и только потом сравнивает.  Поэтому внешне одинаковые строки могут оказаться разными из-за несовместимости кодировки.

От этого можно уйти таким образом:

тогда сравнение пройдет по старинке, потому что RawByteString - специальны тип Ansi строки с кодировкой $FFFF, что означает игнорировать кодировку.

неа, не работает...
в Watch List также пишет, что RawByteString(st) = RawByteString(stFunction) есть true, но всё равно идёт выполнение веточки else   
может среду (компилятор) как-нибудь настроить надо?

Это сообщение отредактировал(а) Ptica_Oz - 1.7.2010, 15:19

Странно... Можешь посмотреть какой реальный код компилируется для такого сравнения (нажать во время отладки этой строчки Ctrl + Alt + C) 
и посмотреть какая конкретно вызывается процедура сравнения (содержит Cmp или Compare и имеет префикс типа _Ansi, _Utf8)
Если немного знаешь асм, то можешь зайти внутрь этой процедуры XXXCmp и посмотреть после какого  je/jne он выпрыгивает из процедуры сравнения (приходит на команду ret).
ЗЫ: И еще посмотри, не подставляет ли компилятор перед функцией сравнения функции конвертации строк.

Это сообщение отредактировал(а) RomanEEP - 2.7.2010, 16:17

Ptica_Oz, 

Приведи не только функцию, но и её вызов.

Демо, +1, вдруг передается юникодная строка.

И есть ли ворнинги компилятора в этих кусках кода?

Это сообщение отредактировал(а) Keeper89 - 3.7.2010, 21:21

вот это вот

выводит True
Или пусть ТС покажет как она получает параметр, или пусть проверит апдейты среды (у меня 4/5)

Ptica_Oz, кидайте сюда весь проект, мы посмотрим. А то так гадать долго можно.

Во вложении проект... В общем, это пример плагина для одной системы документооборота. Он был разработан на Delphi7. Сейчас пытаюсь перевести его на Delphi 2010. Изменение кодировок - это первая задача с которой я столкнулась, там ещё много чего менять надо будет...
Комментарии по коду: в MainUnit есть функция PgiCheckMenuItem, она определяет активность пункта меню в зависимости от условий, вот в ней-то и происходит сравнение строк.

Присоединённый файл ( Кол-во скачиваний: 5 )
 PgiExample_2010.zip 119,59 Kb