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

Администрирование баз данных (Pervasive.SQL, MS SQL, Oracle, утилита Support)

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Bona
Сообщения: 3
Зарегистрирован: 01 дек 2009, 12:45

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

Сообщение 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 ;

Понимаю что предупреждение это не ошибка, но все равно хотелось бы исправить, излазил всю матчасть не могу понять в чем проблема. Если есть у кого светлые идеи подскажите. Буду признателен.
Последний раз редактировалось Bona 11 дек 2009, 12:22, всего редактировалось 1 раз.
KATZ
Местный житель
Сообщения: 473
Зарегистрирован: 29 мар 2005, 17:49

Сообщение KATZ »

Попробовал скомпилировать Атлантисом 5.4.22 - предупреждения не было.

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

Сообщение Bona »

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

Вообще-то FontSize - числовой параметр, почему бы вам не сделать wfont числом и не вызвать GetLongintParameter? Ведь были времена, когда case не работал со строковыми аргументами, я по инерции продолжаю их не использовать.
спасибо за совет но не помогло, у нас Атлантис 5.4.24
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

Привет находке.
Это предупреждение. И почему то проявляется только в alter - наплюйте. Можно убрать настройкой cfg но не нужно, поскоку иногда имеет смысл убирать аналогичные. Как вариант можно убрать else ( наскока помню вы все равно не используете другие шрифты кроме 8 )
Да и топик не в той папке.
Bona
Сообщения: 3
Зарегистрирован: 01 дек 2009, 12:45

Сообщение Bona »

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