function TFMain.GetWordCount(stText : String): Integer;
const
  // Define word separator types that we will recognise
  LF    =#10;
  TAB   =#9;
  CR    =#13;
  BLANK =#32;
var
  WordSeparatorSet : Set of Char;  // We will set on only the above characters
  index  : Integer;     // Used to scan along the string
  inWord : Boolean;     // Indicates whether we are in the middle of a word
  stWordCount    : Integer;   // Internal count of words in the string
begin
  // Turn on the TAB, CR, LF and BLANK characters in our word separator set
  WordSeparatorSet := [LF, TAB, CR, BLANK];
  // Start with 0 words
  stWordCount := 0;
  // Scan the string character by character looking for word separators
  inWord := false;
  for index := 1 to Length(stText) do
  begin
    // Have we found a separator character?
    if stText[index] In WordSeparatorSet then begin
     // Separator found - have we moved from a word?
     if inWord then Inc(stWordCount);    // Yes - we have ended another word
     // Indicate that we are not in a word anymore
     inWord := false;
   end
   else
     // Separator not found - we are in a word
     inWord := true;
 end;
 // Finally, were we still in a word at the end of the string?
 // If so, we must add one to the word count since we did not
 // meet a separator character.
 if inWord then Inc(stWordCount);
 Result := stWordCount;
end;[/code:1:140622a723]
fungsi untuk mencari posisi pertama dari kata tertentu.
function TFMain.FindFirst(search: String): Integer;
begin
  // Here we sort of cheat - we save the search string and just call
  // FindNext after setting the initial string start conditions
  stFindPosition := 1;
  Result := FindNext(Memo1.Lines.Text,search);
end;
fungsi untuk mencari posisi berikutnya dari kata tertentu.
[code:1:140622a723]function TFMain.FindNext(stText, stFindString: String): Integer;
var
  Index    : Integer;
  FindSize : Integer;
begin
  /// Only scan if we have a valid scan string
  if Length(stFindString) = 0
  then Result := -2
  else
  begin
    // Set the search string size
    FindSize := Length(stFindString);
    // Set the result to the 'not found' value
    Result := -1;
    // Start the search from where we last left off
    index  := stFindPosition;
    // Scan the string :
    // We check for a match with the first character of the fromStr as we
    // step along the string. Only when the first character matches do we
    // compare the whole string. This is more efficient.
    // We abort the loop if the string is found.
    while (index <= Length(stText)) and (Result < 0) do
    begin
      // Check the first character of the search string
      if stText[index] = stFindString[1] then
      begin
        // Now check the whole string - setting up a loop exit condition if
        // the string matches
        if MidStr(stText, index, findSize) = stFindString
        then Result := index;
      end;
      // Move along the string
      Inc(index);
    end;
    // Position the next search from where the above leaves off
    // Notice that index gets incremented even with a successful match
    stFindPosition := index
  end;
  // This subroutine will now exit with the established Result value
end;

function TFMain.GetTextCount(stText, Search: String): Integer;
var
  i : integer;
begin
  i := 0;
  if FindFirst(Search) > 0 then begin
    Inc(i);
    repeat
      Inc(i);
    until FindNext(stText,search) < 0;
  end;
  Result := i - 1;
end;