[code delphi]

1. procedure TUP_ServiceFm1.SpBton2Click(Sender: TObject);
2. var STDT,ENDT,SQL,Date_A,Date_B:string;
3. TOT_K1,TOTALB,TOTALC,TOTALD:INTEGER;
4. begin
5. STDT:=COPY(DATETOSTR(SD1_Date.DATE),6,5) '/' COPY(DATETOSTR(SD1_Date.DATE),1,4);
6. ENDT:=COPY(DATETOSTR(SD2_Date.DATE),6,5) '/' COPY(DATETOSTR(SD2_Date.DATE),1,4);
7. Date_A:=COPY(DATETOSTR(SD1_Date.DATE),1,4) '/' COPY(DATETOSTR(SD1_Date.DATE),6,5);
8. Date_B:=COPY(DATETOSTR(SD2_Date.DATE),1,4) '/' COPY(DATETOSTR(SD2_Date.DATE),6,5);
9. SQL:='SELECT * FROM UP_ServiceData';
10. SQL:=SQL ' WHERE 區間起>=''' STDT ''' AND ';
11. SQL:=SQL ' 區間迄<=''' ENDT ''' ';
12. UP_ServiceDisRptFm1.Query1.CLOSE;
13. UP_ServiceDisRptFm1.Query1.SQL.Clear;
14. UP_ServiceDisRptFm1.Query1.SQL.ADD(SQL);
15. UP_ServiceDisRptFm1.Query1.OPEN;
16. TOT_K1:=0;
17. TOTALB:=0;
18. TOTALC:=0;
19. WHILE NOT UP_ServiceDisRptFm1.Query1.EOF DO
20. BEGIN
21. TOT_K1:= TOT_K1 STRTOINTDEF(UP_ServiceDisRptFm1.Query1.FIELDBYNAME('總額').AsString,0); UP_ServiceDisRptFm1.Query1.Next;
22. END;
23. UP_ServiceDisRptFm1.QRLab_D1.Caption :=(Date_A);
24. UP_ServiceDisRptFm1.QRLab_D2.Caption :=(Date_B);
25. UP_ServiceDisRptFm1.QRLab_ToT.Caption:=(FormatFloat('###,###',TOT_K1));//秀總額有千位符號
26. UP_ServiceDisRptFm1.QuickRep1.Preview ;
27. end;

[/code]



請問各位大大們，小弟在報表輸出列印時想要把 rbDetail 欄位單價 總價 秀出 有千位符號的格式，確無法達成
我有在 Mask #,##0 還是無法完全秀出 例如32,000 不知要如何修改程式 (註) 小弟建構 Table 單價 總價 是 Alpha