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