Delphi: можно ли управлять перводом строки в WriteLn?

yolki

оно всегда пишет 0d0a (^M^J)
хотелось бы чего-нибудь подправить, чтобы она писала только ^J.
(не надо предлагать переходить на Write(bla-bla, ^J) )

freestyle

Вряд ли. Напиши обёртку для Write, чем плохо?

klyv

типа TTextRec(Output).LineEnd не канает?

yolki

юнит System:

type

(*$NODEFINE TTextLineBreakStyle*)

  TTextLineBreakStyle = (tlbsLF, tlbsCRLF);



var   { Text output line break handling.  Default value for all text files }

  DefaultTextLineBreakStyle: TTextLineBreakStyle = {$IFDEF LINUX} tlbsLF {$ENDIF}

                                                 {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF};