var s : string ;
s := label1.caption ;
label1.caption := s[1]+s[2]+','+s[3]+s[4]+s[5]+'.'+s[6]+s[7] ;

解决方案 »

  1.   

    zyb:
      thank you first.
      我的意思是说怎么样把label.caption=字符形数字(char)如'1234567..'转成如'12,345,67.00'形财务数字,仍然用label.caption表示出来.
      

  2.   

    label.caption := formatFloat('#,###.00',strtofloat(label1.caption))
      

  3.   

    具体的是label1.caption:=formatfloat('#,##0.00',1234);
      

  4.   

    lowhand
    >>有机会交流一下,对了,你那 VB+Windows CE 问题解决如何了,有进展告知一声。
      

  5.   

    ok,没问题,email  : [email protected]
    windows CE 那是临时的活,只是看看可行性,可能以后会改用VC,不过已不是由我负责了