47 with tl do

    47 with tl do

    48     s:= str;

    48     s:= str;

    49 end;

    49 end;

    50 

    50 

    51 procedure WriteToConsole(s: shortstring);

    51 procedure WriteToConsole(s: shortstring);

    52 var Len: LongInt;

    53 var Len: LongInt;

    53     done: boolean;

    54     done: boolean;

    54 begin

    56 begin

    55 {$IFNDEF NOCONSOLE}

    57 {$IFNDEF NOCONSOLE}

    56 AddFileLog('[Con] ' + s);

    58 AddFileLog('[Con] ' + s);

    57 {$IFDEF ANDROID}

    59 {$IFDEF ANDROID}

    58     Log.__android_log_write(Log.Android_LOG_DEBUG, 'HW_Engine', ShortStringAsPChar('[Con]' + s));

    60     Log.__android_log_write(Log.Android_LOG_DEBUG, 'HW_Engine', ShortStringAsPChar('[Con]' + s));

    81 procedure WriteLnToConsole(s: shortstring);

    83 procedure WriteLnToConsole(s: shortstring);

    82 begin

    84 begin

    83 {$IFNDEF NOCONSOLE}

    85 {$IFNDEF NOCONSOLE}

    84 WriteToConsole(s);

    86 WriteToConsole(s);

    85 {$IFNDEF ANDROID}

    87 {$IFNDEF ANDROID}

    87 inc(CurrLine);

    89 inc(CurrLine);

    88 if CurrLine = cLinesCount then

    90 if CurrLine = cLinesCount then

    89     CurrLine:= 0;

    91     CurrLine:= 0;

    90 PByte(@ConsoleLines[CurrLine].s)^:= 0

    92 PByte(@ConsoleLines[CurrLine].s)^:= 0

    91 {$ENDIF}

    93 {$ENDIF}