1 (edited by prahousefamily 2017-07-25 01:51:02)

Topic: How to use Function Count Substring In String,Substring_index

How To Edit Function Count Substring In String,Substring_index
for find and count string in memo



String =  'banana'
Substring = 'a'
CountSubstringInString('a','banana')
result = 3

Substring_index
string = 'banana'
Substring = 'a'
substring_index('banana','a',1) result 'b'
substring_index('banana','a',-2) result 'na'
substring_index('banana','a',-3) result 'nana'
My Visual Database : I Love You
Easy For Beginner Student For Me

Re: How to use Function Count Substring In String,Substring_index

function CountSubstringInString(SubStr: string; s: string): integer;
var
  i,k : Integer;
begin
  result:=0;
  i := Pos(SubStr,s);
  While i<>0 Do
  Begin
     Inc(result);
     i:=PosEx(SubStr, s, i+Length(SubStr));
  End;
End;



procedure Form1_Button4_OnClick (Sender: string; var Cancel: boolean);
begin
    ShowMessage( CountSubstringInString('a','banana') );
end;
Dmitry.