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));