delphi获取子字符串

1.{作用：截取字符串中的某一些字符
 strSource：源字符串
 strBegin： 开始位置字符串
 strEnd：  结束位置字符串
例：GetStr('abcd1234','bc','34')返回值：'d12'
}
function GetStr(StrSource, StrBegin, StrEnd: string): string;
var
  in_star,in_end:integer;
begin
  in_star:=AnsiPos(strbegin,strsource)+length(strbegin);
  in_end:=AnsiPos(strend,strsource);
  result:=copy(strsource,in_star,in_end-in_star);
end;
==============================================================
2.{作用：截取字符串中的某一些字符
 strSource：源字符串
 strBegin： 开始位置字符串
 strEnd：  结束位置字符串
例：GetStrAll('abcd1234','bc','34')返回值：'bcd1234'
}
function GetStrAll(StrSource, StrBegin, StrEnd: string): string;
var
  in_star,in_end:integer;
begin
  in_star:=AnsiPos(strbegin,strsource);// +length(strbegin)
  in_end:=AnsiPos(strend,strsource)+length(strend);
  result:=copy(strsource,in_star,in_end-in_star);
end;

==============================================================
3.{ 作用：截取字符串中的某一些字符
 strSource：源字符串
 strBegin： 开始位置
 strEnd：  结束位置字符串
例：GetStr('abcd1234',1,'34')返回值：'abcd12'
}
function GetStrByIndex(StrSource:string; BeginIndex:integer;StrEnd: string): string;
var
  in_star,in_end:integer;
begin
  in_star:=BeginIndex;
  in_end:=AnsiPos(strend,strsource);
  result:=copy(strsource,in_star,in_end-in_star);
end;