delphi怎么封裝獲取子字符串幾個(gè)函數(shù)

本篇內(nèi)容主要講解“delphi怎么封裝獲取子字符串幾個(gè)函數(shù)”，感興趣的朋友不妨來看看。本文介紹的方法操作簡單快捷，實(shí)用性強(qiáng)。下面就讓小編來帶大家學(xué)習(xí)“delphi怎么封裝獲取子字符串幾個(gè)函數(shù)”吧!

前言

delphi7里面不像高級版本或是C#或JAVA里面有專門對字符串操作的方法，所以有時(shí)候我們需要自己做一些函數(shù)放到公共單元里面用于調(diào)用，下面列了幾個(gè)字符串的截取的函數(shù)，可以直接拿來用。

函數(shù)代碼

 截取字符串中的某一些字符

 strSource：源字符串
 strBegin： 開始位置字符串
 strEnd：  結(jié)束位置字符串
例：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：  結(jié)束位置字符串
例：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：  結(jié)束位置字符串
例：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;

到此，相信大家對“delphi怎么封裝獲取子字符串幾個(gè)函數(shù)”有了更深的了解，不妨來實(shí)際操作一番吧！這里是億速云網(wǎng)站，更多相關(guān)內(nèi)容可以進(jìn)入相關(guān)頻道進(jìn)行查詢，關(guān)注我們，繼續(xù)學(xué)習(xí)！