Шаблон writeln

[NEoMASTERR]

Здравствуйте, подскажите как выглядит шаблон функции write(ln)
Хочу выводить цветной текст в консоль но перед каждым выводом делать такие махинации бред помоему).

Write('Buffer size SEND: ');

SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_GREEN or FOREGROUND_INTENSITY);
  write(sndbuf);
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE);
  write(' bytes RECV: ');
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_GREEN or FOREGROUND_INTENSITY);
  write(rcvbuf);
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE);
  writeln(' bytes');

Хочу сделать что то типа
writeln(c:color, ...остальные параметры которые передаются в функцию)
как в нее передаются данные?

Например writeln(1,'2',3);

[Serge_Bliznykov]

делайте свою процедуру (например, с именем WriteLnColor())
в ней и делайте все эти манипуляции с выставлением нужных цветов.


p.s. а зачем цвета в консоли?! Вам не кажется, что это блажь?

[Stilet]

как выглядит шаблон функции write(ln)

У стандартной write нет шаблонирования цвета.

[NEoMASTERR]

Я и хочу сделать свою функцию но я не пойму как передать в нее всё так же как и в writeln

procedure cWriteLn(c:tcolor; // <- что дальше?
begin
// тут будет выбор цвета
SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),{тут будет цвет or} FOREGROUND_INTENSITY);

writeln( // < - как передать параметры сюда? и как должен выглядеть прототип функции?

SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE);
end;

Writeln поддерживает даже такие вызовы, как мне сделать так же?)
WriteLn(1,'1',Boolean(1),$1);

[northener]

Сообщение от NEoMASTERR

Writeln поддерживает даже такие вызовы, как мне сделать так же?)
WriteLn(1,'1',Boolean(1),$1);

Никак, если ты не компилятор.
Просто компилятор заменяет такую конструкцию на вызов нескольких процедур _WriteXXX друг за другом.

[NEoMASTERR]

Спасибо

Значит только такой конструкцией

procedure cWriteLn(c:byte; s:string);
var
  col: Byte;
begin
  case c of
    0: col := 0;
    1: col := FOREGROUND_RED;   //red
    2: col := FOREGROUND_GREEN; //green
    3: col := FOREGROUND_BLUE;  //blue
    4: col := FOREGROUND_GREEN or FOREGROUND_BLUE or FOREGROUND_RED; //white
  end;
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),col or FOREGROUND_INTENSITY);
  Writeln(s);
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_GREEN or FOREGROUND_BLUE or FOREGROUND_RED or FOREGROUND_INTENSITY);
end;

[Stilet]

А зачем второй вызов SetConsoleTextAttribute?
И кстати попробуй вместо string передавать переменку типа variant - удобнее должно быть, не понадобится конвертировать в строку.

[Serge_Bliznykov]

Значит только такой конструкцией

вполне себе решение. я бы тоже примерно такое использовал.

А зачем второй вызов SetConsoleTextAttribute?

может быть, чтобы потом любой простой WriteLn не выводил цветной текст.

[Stilet]

может быть, чтобы потом любой простой WriteLn не выводил цветной текст.

Неудачное решение ИМХО...

[min@y™]

p.s. а зачем цвета в консоли?! Вам не кажется, что это блажь?

мне тож интересно