Source position: GPCStrings.pas line 308
procedure Str32IntoStr31(
const s: Str32;
var theResult: Str31
);