//delphi截取字符串

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;