Bunter text in console

[Dalai]

OK, jetzt weiß ich's wieder. Der Code sieht beispielhaft so aus:

Delphi-Quellcode:

uses
  SysUtils, Borland_Crt;

var last_text_attr, text_color : byte;

{Text-Farbe sichern}
last_text_attr:= TextAttr;

{Text-Farbe setzen}
textcolor(text_color);
writeln('Text');

{Text-Farbe wiederherstellen}
TextAttr:= last_text_attr;

Dafür braucht es die Unit Crt von Borland. Ich hab sie damals Borland_crt.pas genannt, in dieser steht aber "unit crt;". Keine Ahnung, woher ich die hatte. Könnte die von Namenloser genannte Unit sein. Die Unit selbst sagt im Header "Copyright (c) 1988-2003 Borland Software Corporation". In der Unit gibt es unter anderem eine procedure TextColor, die die Farbe für folgende Textausgaben setzt. Dieses damals kompilierte 32 Bit Programm funktioniert sogar auf einer 64 Bit CMD eines Win7 x64.

EDIT: Ist die von Namenloser genannte Unit.

MfG Dalai