最新说明：该功能可以直接用系统自带的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下调试时，该函数会将汉字作为一个整体读取。