Source position: GPCStrings.pas line 294
procedure Str27IntoStr15(
const s: Str27;
var theResult: Str15
);