線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1017
推到 Plurk!
推到 Facebook!

StringGrid_Aligment_To_Right

答題得分者是:pgdennis
doll_candy
初階會員


發表:110
回覆:53
積分:32
註冊:2002-04-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-17 01:01:53 IP:61.223.xxx.xxx 未訂閱
請問各位大大 StringGrid Cells置放字串格式,其位置是置左, 是否有方法使其置右 因為有些兒數字的東東置左就無法對齊了 看起來好亂 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\片斷範例如下: if FDM.QryMonthSum.RecordCount <> 0 then begin StringGrid1.Cells[2,J] := 'Total'; while Not FDM.QryMonthSum.Eof do begin case FDM.QryMonthSum.Fields[0].AsInteger of 01: StringGrid1.Cells[3,J] := FormatCurr('#,###,###,##0',JanSum/CountUnit); 02: StringGrid1.Cells[4,J] := FormatCurr('#,###,###,##0',FebSum/CountUnit); 03: StringGrid1.Cells[5,J] := FormatCurr('#,###,###,##0',MarSum/CountUnit); 04: StringGrid1.Cells[6,J] := FormatCurr('#,###,###,##0',AprSum/CountUnit); 05: StringGrid1.Cells[7,J] := FormatCurr('#,###,###,##0',MaySum/CountUnit); 06: StringGrid1.Cells[8,J] := FormatCurr('#,###,###,##0',JunSum/CountUnit); end; FDM.QryMonthSum.Next; end; \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\Thanks
------
doll_candy
pgdennis
資深會員


發表:41
回覆:526
積分:443
註冊:2002-05-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-17 08:19:10 IP:61.219.xxx.xxx 未訂閱
引言: 請問各位大大 StringGrid Cells置放字串格式,其位置是置左, 是否有方法使其置右 因為有些兒數字的東東置左就無法對齊了 看起來好亂 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\片斷範例如下: if FDM.QryMonthSum.RecordCount <> 0 then begin StringGrid1.Cells[2,J] := 'Total'; while Not FDM.QryMonthSum.Eof do begin case FDM.QryMonthSum.Fields[0].AsInteger of 01: StringGrid1.Cells[3,J] := FormatCurr('#,###,###,##0',JanSum/CountUnit); 02: StringGrid1.Cells[4,J] := FormatCurr('#,###,###,##0',FebSum/CountUnit); 03: StringGrid1.Cells[5,J] := FormatCurr('#,###,###,##0',MarSum/CountUnit); 04: StringGrid1.Cells[6,J] := FormatCurr('#,###,###,##0',AprSum/CountUnit); 05: StringGrid1.Cells[7,J] := FormatCurr('#,###,###,##0',MaySum/CountUnit); 06: StringGrid1.Cells[8,J] := FormatCurr('#,###,###,##0',JunSum/CountUnit); end; FDM.QryMonthSum.Next; end; \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\Thanks >< face="Verdana, Arial, Helvetica"> http://www.china-askpro.com/msg41/qa76.shtml 解答 永遠追不上技術更新的速度~~
------
星期一,二...無窮迴圈@@
系統時間:2024-06-27 2:44:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!