| changeset 4900 | 8ad0e23e6d63 |
| parent 4555 | 85150dfb5959 |
| child 4976 | 088d40d8aba2 |
| 4899:8163c9aaad0c | 4900:8ad0e23e6d63 |
|---|---|
50 procedure WriteToConsole(s: shortstring); |
50 procedure WriteToConsole(s: shortstring); |
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 {$IFDEF DEBUGFILE}AddFileLog('[Con] ' + s);{$ENDIF} |
55 AddFileLog('[Con] ' + s); |
56 Write(s); |
56 Write(s); |
57 done:= false; |
57 done:= false; |
58 |
58 |
59 while not done do |
59 while not done do |
60 begin |
60 begin |