<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3><STRONG><FONT color=#1111bb>На другом форуме подсказали:</STRONG> </P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com

ffice

ffice" /><o

><FONT face="Times New Roman" color=#000000 size=3>
Цитата:
</o ><o ><o ><FONT face="Times New Roman" color=#000000 size=3> </o ></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>float F = StrToFloat(Edit1 -> Text);<o ><FONT face="Times New Roman" color=#000000 size=3> </o ></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN lang=EN-US style="mso-ansi-language: EN-US Label1 -> Caption = FloatToStrF(F, ffFixed, 6, 5); // </SPAN>для<SPAN style="mso-ansi-language: EN-US </SPAN>проверки<SPAN lang=EN-US style="mso-ansi-language: EN-US <o ><FONT face="Times New Roman" color=#000000 size=3> </o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT color=#000000><FONT size=3><SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>if (F >= 10000.0)<SPAN style="mso-spacerun: yes </SPAN>{<SPAN style="mso-spacerun: yes </SPAN></SPAN><SPAN lang=EN-US style="COLOR: black; FONT-FAMILY: 'Courier New' mso-ansi-language: EN-US ShowMessage("</SPAN><FONT size=3><SPAN style="COLOR: black; FONT-FAMILY: 'Courier New' Ошибка</SPAN><SPAN lang=EN-US style="COLOR: black; FONT-FAMILY: 'Courier New' mso-ansi-language: EN-US , </SPAN><SPAN style="COLOR: black; FONT-FAMILY: 'Courier New' макс</SPAN><SPAN style="COLOR: black; FONT-FAMILY: 'Courier New' mso-ansi-language: EN-US </SPAN><SPAN style="COLOR: black; FONT-FAMILY: 'Courier New' значение</SPAN><SPAN lang=EN-US style="COLOR: black; FONT-FAMILY: 'Courier New' mso-ansi-language: EN-US = 9999");</SPAN><SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>}<o ></o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>else<o ></o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>{<o ></o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>int Sign = 0;<o ></o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>if (F < 0.0) { Sign = 1; F = -F; }<o ></o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <o ><FONT face="Times New Roman" color=#000000 size=3> </o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FO 0, 2) + " " + IntToHex(M1, 2) + " " + IntToHex(M2, 2) + </SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN lang=EN-US style="mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN>((Len == 4) ? </SPAN>" 00" : "");</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT color=#000000><FONT size=3><SPAN style="mso-spacerun: yes <FONT face="Times New Roman </SPAN><SPAN style="COLOR: black; FONT-FAMILY: 'Courier New' ShowMessage("Результат = " + S);<o ></o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN style="COLOR: black; FONT-FAMILY: 'Courier New' <o ><FONT size=3> </o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN lang=EN-US style="mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN>Label2 -> Caption = FloatToStrF(F, ffFixed, 6, 5); // </SPAN>для<SPAN style="mso-ansi-language: EN-US </SPAN>сравнения<SPAN lang=EN-US style="mso-ansi-language: EN-US <o ></o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="COLOR: black; FONT-FAMILY: 'Courier New' mso-ansi-language: EN-US <o ><FONT size=3> </o ></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><SPAN lang=EN-US style="COLOR: black; FONT-FAMILY: 'Courier New' mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN>}</SPAN><SPAN lang=EN-US style="COLOR: black; FONT-FAMILY: 'Courier New' </SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt </o > </P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <o ><FONT face="Times New Roman" color=#000000 size=3>
|
</o

>