Всем добрый день! Возникла такая проблема. Недавно поставили патчи и естественно необходимо перекомпелировать подключенные формы и интерфейсы. После компеляции возникло предупреждение в логе:
Предупреждение: Приведение строки к числу (стр.11, поз.24 в ......\CNF\CNF_KOEF.VPP)
{ wkoef:=double(wfont)+0.0
Содержимое стека подключаемых файлов:
R:\Vip810\.....\CNF\Akt_Spis.Vip(51)
Ниже сам VPP
// нужен для изменения коэффициента при изменении шрифта
var wkoef , wkoefx :double ;
var wfont :string ;
wkoef:=1 ;
wfont:=GetStringParameter('Windows','FontSize',0)
case wfont of
'9' : { wkoef:=1.05 ;wkoefx:=1.14 ;}
'10': { wkoef:=1.10 ;wkoefx:=1.25 ;}
'8' : { wkoef:=1.00 ;wkoefx:=1.00 ;}
else
{ wkoef:=double(wfont)+0.0
wkoef:=sqrt(wkoef/8.0) ;
wkoefx:=wkoef/8.0
}
end ;
Понимаю что предупреждение это не ошибка, но все равно хотелось бы исправить, излазил всю матчасть не могу понять в чем проблема. Если есть у кого светлые идеи подскажите. Буду признателен.
Приведение строки к числу
Модераторы: m0p3e, edward_K, Модераторы
Приведение строки к числу
Последний раз редактировалось Bona 11 дек 2009, 12:22, всего редактировалось 1 раз.
спасибо за совет но не помогло, у нас Атлантис 5.4.24KATZ писал(а):Попробовал скомпилировать Атлантисом 5.4.22 - предупреждения не было.
Вообще-то FontSize - числовой параметр, почему бы вам не сделать wfont числом и не вызвать GetLongintParameter? Ведь были времена, когда case не работал со строковыми аргументами, я по инерции продолжаю их не использовать.
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
Привет находке.
Это предупреждение. И почему то проявляется только в alter - наплюйте. Можно убрать настройкой cfg но не нужно, поскоку иногда имеет смысл убирать аналогичные. Как вариант можно убрать else ( наскока помню вы все равно не используете другие шрифты кроме 8 )
Да и топик не в той папке.
Это предупреждение. И почему то проявляется только в alter - наплюйте. Можно убрать настройкой cfg но не нужно, поскоку иногда имеет смысл убирать аналогичные. Как вариант можно убрать else ( наскока помню вы все равно не используете другие шрифты кроме 8 )
Да и топик не в той папке.