您当前的位置:delphi教程 > Delphi语言基础 > 简单问题:怎样规范显示接收到的字节数

简单问题:怎样规范显示接收到的字节数

服务端不停的在接收数据,需要把接收到的字节数用一个Lable显示出来  
  希望显示得规范一点,如显示成下面样式:  
   
  214   字节   (214   字节)  
  1.35   KB   (1,389   字节)  
  483   KB   (494,598   字节)  
  1.59   MB   (1,671,837   字节)  
  31.6   MB   (33,232,710   字节)  
  482   MB   (505,780,923   字节)  
  6.21   GB   (6,672,463,691   字节)  
   
  procedure   TForm1.ServerSocket1ClientRead(Sender:   TObject;  
      Socket:   TCustomWinSocket);  
  begin  
      //RecByteCount   为全局Int64变量  
      RecByteCount   :=   RecByteCount   +   Socket.ReceiveLength;  
      Label1.Caption   :=   IntToStr(RecByteCount);     //把这里按上面所说规范显示  
  end;  
 


查看回复
关于我们 | 网站地图 | 广告刊登 | 友情链接
Copyright ©2008 - 2010  Delphi2007.net  ,All Rights Reserved  粤ICP备09038647号
业务联系:allceoad#gmail.com QQ:20008835 最佳分辨率 1024×768