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; 

相关阅读 >>

Delphi解析json格式化的日期

Delphi资源文件的详细使用方法

Delphi 如何将access数据库后缀名accdb改为mdb

Delphi编程禁止用户关闭操作系统

Delphi injectmemexe

Delphi msxml 获取 api接口

Delphi 从记事本导入记录

Delphi过程函数传递参数的八种方式

Delphi中使用tpathanimation

图解qq群如何快速找到自己想要的Delphi资源

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi截取字符串