截取字符串函数

function GetStr(StrSource,StrBegin,StrEnd:string):string;
var
  in_star,in_end:integer; 
  strtmp:string; 
begin
  in_star:=AnsiPos(strbegin,strsource)+length(strbegin);
  strtmp:=copy(strsource,in_star,length(strsource)); 
  in_end:=AnsiPos(strend,strtmp); 
  result:=copy(strsource,in_star,in_star + in_end-in_star -1); 
end;