equal
deleted
inserted
replaced
51 var Len: LongInt; |
51 var Len: LongInt; |
52 done: boolean; |
52 done: boolean; |
53 begin |
53 begin |
54 {$IFNDEF NOCONSOLE} |
54 {$IFNDEF NOCONSOLE} |
55 AddFileLog('[Con] ' + s); |
55 AddFileLog('[Con] ' + s); |
56 Write(s); |
56 Write(stderr, s); |
57 done:= false; |
57 done:= false; |
58 |
58 |
59 while not done do |
59 while not done do |
60 begin |
60 begin |
61 Len:= cLineWidth - Length(ConsoleLines[CurrLine].s); |
61 Len:= cLineWidth - Length(ConsoleLines[CurrLine].s); |
74 |
74 |
75 procedure WriteLnToConsole(s: shortstring); |
75 procedure WriteLnToConsole(s: shortstring); |
76 begin |
76 begin |
77 {$IFNDEF NOCONSOLE} |
77 {$IFNDEF NOCONSOLE} |
78 WriteToConsole(s); |
78 WriteToConsole(s); |
79 WriteLn; |
79 WriteLn(stderr); |
80 inc(CurrLine); |
80 inc(CurrLine); |
81 if CurrLine = cLinesCount then |
81 if CurrLine = cLinesCount then |
82 CurrLine:= 0; |
82 CurrLine:= 0; |
83 PByte(@ConsoleLines[CurrLine].s)^:= 0 |
83 PByte(@ConsoleLines[CurrLine].s)^:= 0 |
84 {$ENDIF} |
84 {$ENDIF} |