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 query1 导出csv txt

Delphi 提取html网页源文件纯文本函数可做采集

Delphi filestream

Delphi 获取外网ip的函数

Delphi让文本框接受文件拖放

Delphi 调用驱动

Delphi adoquery的post和updatebatch

Delphi实现tedit控件的外观只有一条下划线

Delphi实现电脑端微信图片文件解密

Delphi屏蔽win、ctrl_esc、alt_tab、alt_f4等键(windows xp、windows 2003 server下测试通过)

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

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