Bunter text in console

[himitsu]

Da Delphi standardmäßig keine "kürzere" Kapselung dieser API kennt, kannst du es mit Delphi also vergessen.
Die Konstanten kannst'e aber noch locker direkt als Zahl verwenden.


Kann die CMD.exe das?
test.bat / test.cmd

Zitat:

echo ←[0;31;40mIn Color
echo ^[[0;31;40mIn Color
pause

Als BatchFile oder Brainfuck wäre das bestimmt ein netter Code.

Wenn ich mich so an Knoppix erinnere ... die Linuxkonsole ist auch extrem kunterbund.

[Dalai]

AFAIK kennt die CMD keine Escape-Sequenzen. Es gibt "nur" das Kommando "color", mit dem man die Farben der kompletten Konsole selbst setzen kann. Es gibt auch eine Möglichkeit für Delphi, die ich 2005 mit Delphi 5 zusammengeschrieben habe, um einzelne Zeichen/Wörter farbig auszugeben. Ich muss aber erst raussuchen, wie ich das angestellt habe, denn momentan steige ich nicht durch meinen Code :stupid:.

MfG Dalai

[Namenloser]

Natürlich gibt es auch immer noch die CRT-Unit. Vielleicht kann man da auch noch mal gucken, wie die das macht.

Fürs Codegolf ist die Unit natürlich nicht zu gebrauchen, aber das gilt auch für Pascal allgemein ;)

[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

[Panthrax]

Unit "Console" von Rudy Velthuis, lizenzfrei.

• Keine Ersatz-Sequenzen.
• Stellt umfänglich das Vokabular der Unit "CRT" zusammen, wie es mit TurboPascal ausgeliefert wurde.

[Luckie]

@Bummi: Wo soll die Exception herkommen? API Funktionen werfen in der Regel keine Execptions.

[Bummi]

@Luckie, ich habe einfach den Standardrumpf genommen ohne ihn auszuputzen.
Ich hätte den Beitrag auch gerne wieder gelöscht, da redundant. (Ich habe vorher nicht den ganzen Thread gelesen :oops:)

[Union]

Es gibt das ANSICON Projekt https://github.com/adoxa/ansicon