elphi中取出字符串中指定位置的几个字符


本文整理自网络,侵删。

 最新说明:该功能可以直接用系统自带的SUBSTR()函数实现。附上SubStr()的定义:

function SubStr(psInput:String; BeginPlace,CutLeng:Integer):String;
{* 返回psInput从位置BeginPlace开始切取长度为CatLeng字符串}

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;


//参数:1、PStr:源字符串,String型;2、PPos:欲取出字符的位置,首位置为1,Integer型;3、PLen:欲取出的字符串长度,必须大于等于1,Integer型。

//当目标字符位置超出字符串长度时,将返回错误信息。当所取字符个数小于1时,将修正为取1个字符。

//补充说明:在Delphi 6下调试时,该函数会将汉字拆分读取,在Delphi 7下调试时,该函数会将汉字作为一个整体读取。

相关阅读 >>

Delphi 执行dos命令并捕获输出

Delphixe4 版本中,已针对移动平台 引入了 arc 模型

Delphi 读取全网站链接

Delphi 取键盘值

Delphi 2009 之 tcategorypanelgroup[5]: headerstyle

Delphi 实现对xml文件的读写操作

Delphi判断线程是否正在运行

Delphi 双击tmemo选择光标所在行

Delphi读写文本文件 assignfile reset append

Delphi bytetype-单双字节判断

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...