mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
13 lines
211 B
ObjectPascal
13 lines
211 B
ObjectPascal
|
|
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.
|