Source position: libioh.inc line 110
type TCodeCvtDoEncodingFunc = function(
p1: P_IO_codecvt
):Integer;