菜农提问请多多帮忙

Question

procedure TForm1.IdTCPServerDisconnect(AThread: TIdPeerThread);
begin
 iClientCount:=iClientCount-1;
 Edit1.Text:=Format('%n',[iClientCount]);
end;这段代码 想统计连线客户数量并以'0000,0000,0000' 方式表示 如何做

Answer 1

是不是这个
procedure TForm1.Button1Click(Sender: TObject);
var b:int64;
begin
  b:=1000000000000000;  edit1.Text:=Formatfloat('#,#',b);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var b:int64;
i,j:integer;
a,a1,c:string;
begin
  b:=100021574303204090;
  a:=ReverseString(inttostr(b));
  c:='';
  if length(a) mod 4=0 then
        j:=length(a) div 4
  else
        j:=length(a) div 4 +1;  for i:=0 to j do
  begin
  if i*4>length(a)-1 then
        c:=c+copy(a,i*4+1,length(a))
  else
        c:=c+copy(a,i*4,4)+',';
  end;
  edit1.Text:=reversestring(copy(c,1,length(c)-1));
end;