么意思博客

比如我要读出一个字符串中 第5个字符是什么； 可以用下面函数，很方便。直接调用就可以了 。 uses StrU […]

比如我要读出一个字符串中 第5个字符是什么；
可以用下面函数，很方便。直接调用就可以了 。

uses

StrUtils;

Function SubStr(PStr : String; PPos, PLen : Integer) : String;
Begin
  if PPos > Length(PStr) then Result := 'ERROR_OVERSTRING' {目标字符位置不应超过字符串长度}
  else if PLen < 1 then
  begin
    Result := '';
  end
  else
  begin
    if PPos + PLen - 1 > Length(PStr) then PLen := Length(PStr) - PPos + 1;{当从所取位置要取的字符数超过字符串长度时，修正所取字符串个数。}
    Result := RightStr(LeftStr(PStr, PPos + PLen - 1), PLen);
  end;
End;

调用：

SubStr(str1,5,1)