Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться . [D6, Oracle]


Alive ©   (2002-04-27 11:32:00) 

Приветствую всех .
if dtNsi_gtTIP.Value="C" then begin
l:=(dtNsi_GTL.AsVariant/2+4/2)+(dtNsi_GTH.AsVariant+4)+(dtNsi_GTW.AsVariant/2+4/2);
w:=((dtNsi_GTL.AsVariant+4/2)+(dtNsi_GTW.AsVariant+4)+(dtNsi_GTL.AsVariant+4)+(dtNsi_GTW.AsVariant+4/2))+56 ;
dtNsi_gtpl.Value:=l*w / 1000000 ;

Для переменной L выдает такую ошибку .
[Error] uSpravochnik.pas(199): Incompatible types: "Integer" and "Extended"


Lusha   (2002-04-27 11:46:00) [1]

Смотрите функцию VarAsType...


Johnmen   (2002-04-27 11:45:00) [2]

числовое - не значит целое :)
Делай Round например....


alive   (2002-04-27 11:42:00) [3]

Хорошо , а какой тип мне ей присвоить .Значение та должно быть числовое окончательное .


Johnmen   (2002-04-27 11:40:00) [4]

если L integer - то все верно выдает...


Наверх

Титульная страница Поиск, карта сайта Написать письмо