[gelöst]Suche Elegantere Farbausgabe möglichkeit CLI

[Dragon]

Gibt es eine elegantere art, ein farbigen Text im CLI auszugeben als:

Code: Alles auswählen

Textcolor(red);
writeln('Ausgabe');
textcolor(white);

sowas wie

Code: Alles auswählen

writeln(Textcolor=red, 'Error');

[Mathias]

Selbst eine procedure schreiben.

Code: Alles auswählen

  procedure ColWriteLn(col: byte; s: string);
  begin
    TextColor(col);
    WriteLn(s);
  end;
 
begin
  ColWriteLn(red, 'Hello World');
end.    

[Dragon]

Hoppla . Hätte ich auch selbst drauf kommen können, ist halt zu offensichtlich.
danke Mathias

[Mathias]

So könnte man so etwas elegant lösen, ohne Angabe wird der Standard-Wert übernommen.

Code: Alles auswählen

  procedure ColWriteLn(s: string; col: byte = LightGray);
  begin
    TextColor(col);
    WriteLn(s);
  end;
 
begin
  ColWriteLn('Hello World', Red);
  ColWriteLn('Hello World');      // Standard grau
  ColWriteLn('Hello World', Green);
end.    

[Warf]

So könnte man so etwas elegant lösen, ohne Angabe wird der Standard-Wert übernommen.

Code: Alles auswählen

  procedure ColWriteLn(s: string; col: byte = LightGray);
  begin
    TextColor(col);
    WriteLn(s);
  end;
 
begin
  ColWriteLn('Hello World', Red);
  ColWriteLn('Hello World');      // Standard grau
  ColWriteLn('Hello World', Green);
end.    

Wenn man nun aber den Standardwert umstellt?