TextColor and StdOut

[Matze]

Hello,
why does this dont work?

assign(FO, '');
rewrite(FO);
TextColor(Red);
write(FO,'some Text');

The TextColor is not set to red.
Can you help?
Thanks.

[jamie]

That looks like you need to use the CRT unit to start with.

Also, remove the Assign and Rewrite.

If you are trying to do terminal output, then you need to use Ansi Escape codes or whatever the terminal understands.

[Jonas Maebe]

You have to use assigncrt instead of assign if you want to use the functionality of the crt unit with it.

[Thaddy]

Something like so:

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

1. uses Crt;
2. var
3.   FO : Text;
4. begin
5.   AssignCrt(FO);
6.   Rewrite(FO);
7.   TextBackground(white);
8.   ClrEol;
9.   TextColor(Red);
10.   WriteLn(FO,'Some text');
11.   Close(FO);
12. end.

Taken and adapted from the example in the manual for Assigncrt:
https://www.freepascal.org/docs-html/rtl/crt/assigncrt.html