Source position: GPCStrings.pas line 302
procedure Str31IntoStr31(
const s: Str31;
var theResult: Str31
);