fpcsrc/tests/test/tstring8.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

uses strings;

var
  a, b: pchar;

begin
  a := nil;
  b := 'abc';
  if (strpos(a,b) <> nil) or
     (strpos(b,a) <> nil) or
     (strpos(a,a) <> nil) then
    halt(1);
end.