Source position: GPCStrings.pas line 301
procedure Str31IntoStr27(
const s: Str31;
var theResult: Str27
);