Netspirit писал(а):
Возможно, функция конвертации Double в строку как-то отличается, не округляет что-то.Что-то с Real не то в 64.
Если вместо переменных вставить так x:= 1.01 + 6.06; То нормально.
Add(MainForm,2953706,406,259)
{
Width=319
Height=65
Position=1
link(onCreate,2834044:dotest,[])
}
Add(InlineCode,2834044,462,273)
{
WorkPoints=#6:dotest|
EventPoints=#5:onRes|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|19: onRes:THI_Event;|50: procedure dotest(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|28:procedure THiAsmUnit.dotest;|15:var x1,x2:Real;|7:x:Real;|6:begin |9:x1:=6.06;|9:x2:=1.01;|11:x:=x1 + x2;|18://x:= 1.01 + 6.06;|21:_hi_OnEvent(onRes,x);|4:end;|4:end.|
link(onRes,2953706:doCaption,[(502,279)(502,242)(394,242)(394,265)])
}