来自 新葡8455编程 2020-02-26 21:35 的文章
当前位置: 新葡棋牌京官网app > 新葡8455编程 > 正文

delphi截取字符串

//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;

本文由新葡棋牌京官网app发布于新葡8455编程,转载请注明出处:delphi截取字符串

关键词: