equal
deleted
inserted
replaced
47 |
47 |
48 procedure WriteLnToConsole(s: shortstring); |
48 procedure WriteLnToConsole(s: shortstring); |
49 begin |
49 begin |
50 {$IFNDEF NOCONSOLE} |
50 {$IFNDEF NOCONSOLE} |
51 WriteToConsole(s); |
51 WriteToConsole(s); |
52 lastConsoleline:= s; |
|
53 {$IFNDEF ANDROID} |
52 {$IFNDEF ANDROID} |
54 WriteLn(stderr, ''); |
53 WriteLn(stderr, ''); |
55 {$ENDIF} |
54 {$ENDIF} |
56 {$ENDIF} |
55 {$ENDIF} |
|
56 lastConsoleline:= s; |
57 end; |
57 end; |
58 |
58 |
59 function ShortStringAsPChar(s: shortstring) : PChar; |
59 function ShortStringAsPChar(s: shortstring) : PChar; |
60 begin |
60 begin |
61 if Length(s) = High(s) then |
61 if Length(s) = High(s) then |