Всем здрасти.
Поставила тут на днях 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

Скомпилил dll заменив
if (Pos(stFunction, st) = 1) and (Length(stFunction) = Length(st)) then
на
 if st = stFunction then
Создал тестовый проект:

Усё работает идеально, условие проходит, что надо выполняет!

ЗЫ: Все компилил под D2010
ЗЗЫ: Для сравнения компилятор подставляет LStrEqual

Это сообщение отредактировал(а) RomanEEP - 5.7.2010, 08:47

Во вложении скриншот пошаговой отладки.


у меня тоже

может настройки компилятора изменить?...


Присоединённый файл ( Кол-во скачиваний: 7 )
 ___.PNG 109,69 Kb

Как это вы передаете AnsiString в dll без ShareMem?
А вызывающий код в чем склмпилирован? Не в доюникодной версии ли?

Это сообщение отредактировал(а) bems - 5.7.2010, 14:43

PgiCheckMenuItem - это не Лоцман-ли? Он же в ANSI версии Delphi собран. Забудьте про Unicode и Delphi 2009/2010 - там такой кривой интерфейс с плагинами, что по-другому никак.

Добавлено через 2 минуты и 37 секунд
P.S. Во-первых, внутреннее устройство AnsiString в D2009/2010 <> устройства AnsiString в D2007 и ниже. Во-вторых, там исключения передаются через границы модулей - т.е. ваш код в D2009/2010 ловит исключение-объект из D2007 или ниже - это не будет работать, ибо структура объектов у этих Delphi разная.

Добавлено через 3 минуты и 28 секунд
P.P.S. Вот, что получается, когда экономят деньги на нормальных программистах и сажают студентов писать софт.

угу, кажется в Delphi 7


он самый... через COM интерфейс на Delphi с ним не доводилось работать?

А в чём вопрос-то?

Добавлено через 8 минут и 10 секунд
P.S. А это случайно я не с вами пересекался на DelphiKingdom по вопросу Компаса и печати на виртуальном принтере? 

сделала так:



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