9 function ConOutFunc(var Text: TTextRec
): Integer;
18 if _pos
<= 0 then Exit
;
21 CharToOemBuff(Text.BufPtr
, Text.BufPtr
, _pos
);
22 if not WriteFile(Text.Handle
, Text.BufPtr
^, _pos
, a
, nil) then
23 Result
:= GetLastError
;
29 TTextRec(Output
).InOutFunc
:= @ConOutFunc
;
30 TTextRec(Output
).FlushFunc
:= @ConOutFunc
;