本文整理自网络，侵删。
最新说明：该功能可以直接用系统自带的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 tbitmap创建时提示object or class type required
Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名
更多相关阅读请进入《Delphi》频道 >>
