字串 格式化的問題 |
尚未結案
|
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; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |