一个截取字符串函数,参数列表（源字符串，开始字符串，结束字符串）

经常用，不想再费脑筋

function TForm1.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_end-1);
end;