function TgjcForm.IncreamNo(sNo: String): String;
var
iPos : Integer;
iLen : Integer;
iNo : Integer;
begin
iPos := Length(sNo);
while (iPos > 0) and (sNo[iPos] in ['0'..'9']) do dec(iPos);
if iPos > 0 then
begin
iLen := Length(sNo) - iPos;
iNo := StrToInt(Copy(sNo, iPos + 1, iLen));
Result := Copy(sNo, 1, iPos) + RightStr(StringOfChar('0', iLen) + IntToStr(iNo + 1), iLen);
end
else
Result := sNo;
end;
procedure TgjcForm.Button4Click(Sender: TObject);
begin
ShowMessage (IncreamNo('fg00100227'));
end;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/11218608/viewspace-1001123/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
按月流水
下一篇：
取得汉字的第一个字母
请登录后发表评论
登录
全部评论
-
博文量8
-
访问量152991
