1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

type
  TCharSet = set of char;

const
  def_charset = [' '];
  charset_all = [#0..#255];


function wordcount(s: string; nw: TCharSet = def_charset): integer;
var
 p: pchar;
 new: boolean;
begin
 p := pchar(s+' ');
 result := 0;
 new := false;
 repeat
  if not (p^ in charset_all-nw) then
   if not new then
   begin
    inc(result);
    new := true;
   end
   else
  else
   new := false;
  inc(p);
 until p^ = #0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

function replace_all(search: string; replace: string; str: string): string;
var
 f: TIntArray;
 p: integer;
 slength: integer;
 s: pchar;
 idx: integer;
begin
 p := 0;
 f := Search_all(search,str);
 slength := length(search);
 s := pchar(str);
 result := '';
 idx := 1;
 repeat
  if p > high(f) then
   while s^ <> #0 do
   begin
    result := result + s^;
    inc(s);
   end
  else
  begin
   if f[p] = idx then
   begin
    inc(idx, slength);
    inc(s, slength);
    inc(p);
    result := result + replace;
   end
   else
   begin
    result := result + s^;
    inc(idx);
    inc(s);
   end;
  end;
 until s^ = #0;
end;