字符串递增

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;

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/11218608/viewspace-1001123/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/11218608/viewspace-1001123/