如何在數值字串前補'0' |
|
答題得分者是：ha0009
|
|
zhong
一般會員   發表：46 回覆：17 積分：12 註冊：2004-08-02 發送簡訊給我 |
|
|
wameng
版主  發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
臨時寫的... { 複製字串 Exp:A=getstr('*',5) => '*****' }
function GetStr(eStr:string;Count:integer):string;
var
I:integer;
begin
Result:='';
For i:=1 to Count do Result:=Result eStr;
end; { 數字補零放左 Exp:A=Get000(3,3) => '003' }
function Get000(eNum:integer;Count:integer):string;
begin
result := GetStr('0',Count-length(inttostr(eNum))) inttostr(eNum);
end; 不知道有沒有更好的作法....
|
|
ha0009
版主 發表：16 回覆：507 積分：639 註冊：2002-03-16 發送簡訊給我 |
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
引言:這個方法好！到沒想過還有這一招。 [code delphi] Funtion Get000(eNum,Count:Integer):String; begin Result := format ('%0.*d', [Count,eNum]); end; [/code] 發表人 - wameng 於 2004/10/07 10:20:49
編輯記錄
GrandRURU 重新編輯於 2017-04-28 21:19:42， 註解 無‧
|
|
ha0009
版主 發表：16 回覆：507 積分：639 註冊：2002-03-16 發送簡訊給我 |
發表時間：2004-10-07 09:39:48
IP:218.14.xxx.xxx 未訂閱
系統時間：2024-06-22 18:25:18
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |