equal
deleted
inserted
replaced
479 var r: shortstring; |
479 var r: shortstring; |
480 begin |
480 begin |
481 if (c < #32) or (c > #127) then |
481 if (c < #32) or (c > #127) then |
482 r:= '#' + inttostr(byte(c)) |
482 r:= '#' + inttostr(byte(c)) |
483 else |
483 else |
484 r:= c; |
484 begin |
485 |
485 // some magic for pas2c |
|
486 r[0]:= #1; |
|
487 r[1]:= c; |
|
488 end; |
|
489 |
486 sanitizeCharForLog:= r |
490 sanitizeCharForLog:= r |
487 end; |
491 end; |
488 |
492 |
489 procedure initModule(isNotPreview: boolean); |
493 procedure initModule(isNotPreview: boolean); |
490 {$IFDEF DEBUGFILE} |
494 {$IFDEF DEBUGFILE} |