Source position: GPCStrings.pas line 330
procedure StringIntoStr31(
const s: string;
var theResult: Str31
);