么意思博客

到现在还是不了解什么是正则，或许是不懂把。可是找了很多资料，也没有发现可以截取字符中间某段字符的例子。可能是我 […]

到现在还是不了解什么是正则，或许是不懂把。可是找了很多资料，也没有发现可以截取字符中间某段字符的例子。可能是我OUT了，又或者是我自己技术不到家！
最后没办法，只得放弃正则。

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;

调用方法：

str1:=GetStr(str2,'str3','str4') ;

str1:=GetStr(‘整体字符串’,’整’,’串’) ；
最终结果是 ‘体字符’!