F2，T ， 还有 ； 还有方向键的上下的值是多少？

Question

谢谢~
还有。
R：= floattostr(strtofloat(ls_zjje)/1.04*0.05);答案：205.486165
怎么取到 205.49呢？

Answer 1

showmessage(formatfloat('0.00',strtofloat(edit1.text)));

Answer 2

vk_LButton   = $01;
vk_RButton   = $02;
vk_Cancel    = $03;
vk_MButton   = $04;   { NOT contiguous with L & RBUTTON }
vk_Back      = $08;
vk_Tab       = $09;
vk_Clear     = $0C;
vk_Return    = $0D;
vk_Shift     = $10;
vk_Control   = $11;
vk_Menu      = $12;
vk_Pause     = $13;
vk_Capital   = $14;
vk_Escape    = $1B;
vk_Space     = $20;
vk_Prior     = $21;
vk_Next      = $22;
vk_End       = $23;
vk_Home      = $24;
vk_Left      = $25;
vk_Up        = $26;
vk_Right     = $27;
vk_Down      = $28;
vk_Select    = $29;
vk_Print     = $2A;
vk_Execute   = $2B;
vk_SnapShot  = $2C;
vk_Copy      = $2C not used by keyboards }
vk_Insert    = $2D;
vk_Delete    = $2E;
vk_Help      = $2F;
vk_A thru vk_Z are the same as their ASCII equivalents: 'A' thru 'Z' }
vk_0 thru vk_9 are the same as their ASCII equivalents: '0' thru '9' }
vk_NumPad0   = $60;
vk_NumPad1   = $61;
vk_NumPad2   = $62;
vk_NumPad3   = $63;
vk_NumPad4   = $64;
vk_NumPad5   = $65;
vk_NumPad6   = $66;
vk_NumPad7   = $67;
vk_NumPad8   = $68;
vk_NumPad9   = $69;
vk_Multiply  = $6A;
vk_Add       = $6B;
vk_Separator = $6C;
vk_Subtract  = $6D;
vk_Decimal   = $6E;
vk_Divide    = $6F;
vk_F1        = $70;
vk_F2        = $71;
vk_F3        = $72;
vk_F4        = $73;
vk_F5        = $74;
vk_F6        = $75;
vk_F7        = $76;
vk_F8        = $77;
vk_F9        = $78;
vk_F10       = $79;
vk_F11       = $7A;
vk_F12       = $7B;
vk_F13       = $7C;
vk_F14       = $7D;
vk_F15       = $7E;
vk_F16       = $7F;
vk_F17       = $80;
vk_F18       = $81;
vk_F19       = $82;
vk_F20       = $83;
vk_F21       = $84;
vk_F22       = $85;
vk_F23       = $86;
vk_F24       = $87;
vk_NumLock   = $90;
vk_Scroll    = $91;

Answer 3

roundto(R：= floattostr(strtofloat(ls_zjje)/1.04*0.05),-2);

Answer 4

刚才写错了R:=floattostr(roundto(strtofloat(ls_zjje)/1.04*0.05,-2));

Answer 5

search in windows.pas or system.pasFloatToStrF()

Answer 6

OnKeyPress:
If key = ???(按方向键下键) then
Begin
  key := #0;
  next com get focuse;
End;

Answer 7

zjhydx98(tourist) 的对，我看错了，没注意。

Answer 8

F2---->113
T----->84                 
                           38
                           |
                           |
                           \/ 
                      
                    37<----  ----> 39
                            |
                            |
                            \/

Answer 9

F2---->113
T----->84                 
                           38
                           |
                           |
                           \/ 
                      
                    37<----  ----> 39
                            |
                            |
                            \/
                            40

Answer 10

roundto -2 函数就能得到你想要的

Answer 11

怎么用了oundto 连编译都通不过呀，
是不是要加什么单元啊？

Answer 12

R:string;
R:=formatfloat('#.##',strtofloat(ls_zjje)/1.04*0.05);