千分位符的问题(100)

我想显示位数 在 dbgrid中，比方 123456 显示成1,23456 而不是123,456 这样怎么办

除自定义格式外，另就是要做函数即可。

...implementation{$R *.dfm}function MyFormat(AValue,ALen:Integer):string;var s:string; iC,iQ,iLen,iLenQ:Integer;begin s:=IntToStr(AValue); iLen:=length(s); iLenQ:=iLen div ALen; if iLen mod ALen =0 then Dec(iLenQ); SetLength(Result,iLen+iLenQ); iC:=1; iQ:=0; while iLen>0 do begin result[iLen+iLenQ-iQ]:=s[iLen]; if iC mod ALen=0 then begin if iLen+iLenQ-iQ-1>0 then result[iLen+iLenQ-iQ-1]:=','; iC:=0; inc(iQ); end; dec(iLen); inc(iC); end;end;procedure TForm1.Button1Click(Sender: TObject);begin showmessage(MyFormat(123456,5));end;