字串 格式化的問題 |
|
尚未結案
|
|
sword185
一般會員   發表：36 回覆：81 積分：23 註冊：2002-06-05 發送簡訊給我 |
Dear 各位先進
我設計一個新增的按鈕，在資料庫中若是無資料，也就是剛開始無資料時，兩用程式自動產生編號，其程式碼如下
Tmp_ID:=Copy(Fm_DataModule.ADOQ_WPWDataWP_ID.Text,4,12);
WP_ID:=StrToInt(Tmp_ID);
WP_ID:=WP_ID 1;
Tmp_ID:=IntToStr(WP_ID);
Fm_DataModule.ADOQ_WPWData.Append;
DBEdt_WP_ID.Text:='WP-' Tmp_ID; 若是編號為第一筆時，想要其編號格式為WP-0000000001、WP-0000000002、WP-0000000003.....WP-9999999999
要如何修改其格式(Format)呢?
因為出來的編號是WP-1、WP-2、WP-3...WP-9999999999
|
|
timhuang
尊榮會員  發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
HI, 可以使用 RightStr 來進行即可, 如下:
Tmp_ID:=Copy(Fm_DataModule.ADOQ_WPWDataWP_ID.Text,4,12);
WP_ID:=StrToInt(Tmp_ID);
WP_ID:=WP_ID 1;
Tmp_ID:=RightStr('0000000000'＋IntToStr(WP_ID), 10);
Fm_DataModule.ADOQ_WPWData.Append;
DBEdt_WP_ID.Text:='WP-' Tmp_ID;
|
|
sword185
一般會員 發表：36 回覆：81 積分：23 註冊：2002-06-05 發送簡訊給我 |
|
|
sos_admin
版主 發表：121 回覆：697 積分：768 註冊：2003-07-23 發送簡訊給我 |
|
|
timhuang
尊榮會員 發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
如 sos_admin 兄的說明, 加入使用 StrUtils 即可, 若是 Delphi 5/6 沒有該 unit 的話, 也可以自行寫一個:
function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload; begin Result := Copy(WideString(AText), Length(WideString(AText)) 1 - ACount, ACount); end; |
發表時間：2003-10-05 08:58:44
IP:163.26.xxx.xxx 未訂閱
系統時間：2024-05-19 6:53:01
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |