fpcsrc/tests/webtbs/tw4162.pp


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


Var
  S: ansistring;
  SS: shortstring;
Begin
  SS := 'find';
  SetLength(S, 300);
  S := S + SS;
  Writeln(Pos(SS, S)); // This will not find the occurance of 'find'
  if pos(ss,s)<>301 then
    halt(1);
End.