equal
deleted
inserted
replaced
24 procedure initModule; |
24 procedure initModule; |
25 procedure freeModule; |
25 procedure freeModule; |
26 procedure WriteToConsole(s: shortstring); |
26 procedure WriteToConsole(s: shortstring); |
27 procedure WriteLnToConsole(s: shortstring); |
27 procedure WriteLnToConsole(s: shortstring); |
28 function GetLastConsoleLine: shortstring; |
28 function GetLastConsoleLine: shortstring; |
29 function ShortStringAsPChar(s: shortstring): PChar; |
29 function ShortStringAsPChar(s: shortstring): PChar; |
30 |
30 |
31 implementation |
31 implementation |
32 uses Types, uVariables, uUtils {$IFDEF ANDROID}, log in 'log.pas'{$ENDIF}; |
32 uses Types, uVariables, uUtils {$IFDEF ANDROID}, log in 'log.pas'{$ENDIF}; |
33 |
33 |
34 const cLineWidth: LongInt = 0; |
34 const cLineWidth: LongInt = 0; |