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
|
{$mode objfpc}
{$h+}
Program testp;
uses sysutils,strutils;
Const
Count = 10000000;
Delims = [' ','.'];
Var
S,T : String;
I,N : Integer;
begin
S:='THE CAT WAS NEVER SMART ENOUGH TO CATCH THIS FAST LITTLE MOUSE.';
For I:=1 to 8 do
Write('1234567890');
Writeln;
Writeln(S);
For I:=1 to WordCount(S,Delims) do
begin
T:=ExtractWordPos(I,S,Delims,N);
Writeln('Word ',I:2,' starts at ',N:2,'(',WordPosition(I,S,Delims):2,') : ',T);
end;
end.
|
