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