delphi怎么封裝獲取子字符串幾個函數

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

前言

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;

到此，相信大家對“delphi怎么封裝獲取子字符串幾個函數”有了更深的了解，不妨來實際操作一番吧！這里是億速云網站，更多相關內容可以進入相關頻道進行查詢，關注我們，繼續學習！