BCB-字串上補0 製作流水序號

int L_Num=5;

AnsiString::StringOfChar('0',4-IntToStr(L_Num).Length())+IntToStr(++L_Num);

result: 0006

---------------------------------------------------------------------------------------------------------------

 

int L_Num=9;

 

AnsiString::StringOfChar('0',4-IntToStr(++L_Num).Length())+IntToStr(++L_Num);

 

 

result: 0010

---------------------------------------------------------------------------------------------------------------

int L_Num=10;

AnsiString::StringOfChar('0',4-IntToStr(++L_Num).Length())+IntToStr(L_Num++);

result: 0010

StringOfChar : 字串填滿函數