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
40
41
42
43
44
45
46
47
48
49
50
51
|
{$mode objfpc} {$h+}
{$hints on}
{$warnings on}
uses strutils;
var doexit : integer =0;
procedure posTest(const substr,str:ansistring;start:integer;shouldberes:integer;testnr:integer);
var res : integer;
begin
res:=posex(substr,str,start);
if res<>shouldberes then
begin
writeln('test ',testnr:5,' resulted in ',res:5,' should be ',shouldberes);
doexit:=1;
end;
if res>0 then
begin
if copy(str,res,length(substr))<>substr then
begin
doexit:=1;
writeln('test ',testnr,' doesn''t match search phrase');
end;
end;
end;
const
S = 'Start'+#0#1+'BaseLevel'+#0#2+'Sublevel1'+#0#2+'Sublevel2'+#0#1+'LastOne';
Sub = 'LastOne';
s2 = '1234one8901one';
s3 = '1234one8901on';
s4 = '1234on234on3';
begin
postest(sub,s,1,41,1);
postest('One',s,1,45,2);
postest('Start',s,1,1,3);
postest('one',s2,1,5,4);
postest('one',s2,6,12,5);
postest('one',s3,6,0,6);
postest('one',s3,0,0,7);
postest('one',s2,14,0,8);
postest('One',s2,1,0,9); // test if compare is case sensitive
postest('one',s4,1,0,10); // test if compare is case sensitive
if doexit>0 then
halt(1);
end.
|
