writeln output string length

[freemind001]

Code: Pascal  [Select][+][-]

1. procedure Log(EventType: TEventType; aMessage: string; StdOutputOnly: boolean);
2. begin
3.     if StdOutputOnly then
4.       writeln(aMessage)
5.     else
6.     begin
7.       writeln(aMessage);
8.       AppEventLog.Log(EventType, aMessage);
9.     end;
10. end;        

writeln(aMessage) output length is only 256 symbols, why?

if i do

Code: Pascal  [Select][+][-]

1. writeln('{1000 symbols here...}');

it's ok, but

Code: Pascal  [Select][+][-]

1. writeln(aMessage + '{1000 symbols here...}');

still has the limitation

[Thaddy]

{$H+}

[rvk]

Somewhat more expanded
https://wiki.lazarus.freepascal.org/$H

[freemind001]

works, thank you
can I use it together with {$mode objfpc}?

[rvk]

Yes. Normally if you create a default program with lazarus, this is already automatically added at the top.

Code: Pascal  [Select][+][-]

1. {$mode objfpc}{$H+}

[Thaddy]

or use {$mode delphi} where {$H+} is implied. (the only mode where that is the case)