怎樣規範顯示接收到的位元組數 |
缺席
|
h@visli
資深會員 發表:103 回覆:429 積分:431 註冊:2004-02-13 發送簡訊給我 |
服務端不停的在接收數據,需要把接收到的字節數用一個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;
------
------------------------ 博采眾家之長,奉獻綿薄之力 ------------------------ |
RedSnow
版主 發表:79 回覆:1322 積分:845 註冊:2003-12-15 發送簡訊給我 |
|
h@visli
資深會員 發表:103 回覆:429 積分:431 註冊:2004-02-13 發送簡訊給我 |
問題我已經解決:
if RecByteCount > 1024*1024*1024 then //G Label1.Caption := Format('%.2fG%d位元組',[RecByteCount/(1024*1024*1024),RecByteCount]) else if RecByteCount > 1024*1024 then //M Label1.Caption := Format('%.2fM%d位元組',[RecByteCount/(1024*1024),RecByteCount]) else if RecByteCount > 1024 then //K Label1.Caption := Format('%.2fK%d位元組',[RecByteCount/(1024),RecByteCount]) else Label1.Caption := Format('%d位元組%d位元組',[RecByteCount,RecByteCount])
------
------------------------ 博采眾家之長,奉獻綿薄之力 ------------------------ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |