Страница 1 из 1

Приведение строки к числу

Добавлено: 11 дек 2009, 05:28
Bona
Всем добрый день! Возникла такая проблема. Недавно поставили патчи и естественно необходимо перекомпелировать подключенные формы и интерфейсы. После компеляции возникло предупреждение в логе:
Предупреждение: Приведение строки к числу (стр.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 ;

Понимаю что предупреждение это не ошибка, но все равно хотелось бы исправить, излазил всю матчасть не могу понять в чем проблема. Если есть у кого светлые идеи подскажите. Буду признателен.

Добавлено: 11 дек 2009, 08:06
KATZ
Попробовал скомпилировать Атлантисом 5.4.22 - предупреждения не было.

Вообще-то FontSize - числовой параметр, почему бы вам не сделать wfont числом и не вызвать GetLongintParameter? Ведь были времена, когда case не работал со строковыми аргументами, я по инерции продолжаю их не использовать.

Добавлено: 11 дек 2009, 09:31
Bona
KATZ писал(а):Попробовал скомпилировать Атлантисом 5.4.22 - предупреждения не было.

Вообще-то FontSize - числовой параметр, почему бы вам не сделать wfont числом и не вызвать GetLongintParameter? Ведь были времена, когда case не работал со строковыми аргументами, я по инерции продолжаю их не использовать.
спасибо за совет но не помогло, у нас Атлантис 5.4.24

Добавлено: 11 дек 2009, 09:56
edward_K
Привет находке.
Это предупреждение. И почему то проявляется только в alter - наплюйте. Можно убрать настройкой cfg но не нужно, поскоку иногда имеет смысл убирать аналогичные. Как вариант можно убрать else ( наскока помню вы все равно не используете другие шрифты кроме 8 )
Да и топик не в той папке.

Добавлено: 11 дек 2009, 10:22
Bona
Похоже я понял с кем общаюсь. Ладно попробую исправить, а то что топик не в том разделе согласен, по запарке не туда написал
Но все же может еще есть предложения какие-нибудь?