Source position: GPCStrings.pas line 376
function PosCharInStr31(
theCh: AnsiChar;
const theStr: Str31
):Integer;