2015/07/27

Delphi字串計數函式

已經忘記是什麼時候遇到需要計算重複字的次數問題
前陣子想到才上Google來找，因為關鍵字仍然不方便搜尋，所以轉錄在這裡。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
uses
  StrUtils;

function Occurrences(const Substring, Text: string): Integer;
var
  offset: Integer;
begin
  result := 0;
  offset := PosEx(Substring, Text, 1);
  while offset <> 0 do
  begin
    inc(result);
    offset := PosEx(Substring, Text, offset + length(Substring));
  end;
end;

資料來源：

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)