前言
delphi7里面不像高级版本或是C#或JAVA里面有专门对字符串操作的方法,所以有时候我们需要自己做一些函数放到公共单元里面用于调用,下面列了几个字符串的截取的函数,可以直接拿来用。
函数代码
截取字符串中的某一些字符
strSource:源字符串 strBegin: 开始位置字符串 strEnd: 结束位置字符串 例:GetStr('abcd1234','bc','34')返回值:'d12' 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;
截取字符串中的某一些字符 strSource:源字符串 strBegin: 开始位置字符串 strEnd: 结束位置字符串 例:GetStrAll('abcd1234','bc','34')返回值:'bcd1234' function GetStrAll(StrSource, StrBegin, StrEnd: string): string; var in_star,in_end:integer; begin in_star:=AnsiPos(strbegin,strsource);// +length(strbegin) in_end:=AnsiPos(strend,strsource)+length(strend); result:=copy(strsource,in_star,in_end-in_star); end;
截取字符串中的某一些字符 strSource:源字符串 strBegin: 开始位置 strEnd: 结束位置字符串 例:GetStr('abcd1234',1,'34')返回值:'abcd12' function GetStrByIndex(StrSource:string; BeginIndex:integer;StrEnd: string): string; var in_star,in_end:integer; begin in_star:=BeginIndex; in_end:=AnsiPos(strend,strsource); result:=copy(strsource,in_star,in_end-in_star); end;