[РЕШЕНО] Как при помощи модуля CRt реализовать вывод сообщения на экран которое будет периодически менять свой цвет?

[baton00711]

Подскажите пожалуйста как при помощи модуля CRt реализовать вывод сообщения на экран которое будет периодически менять свой цвет

Решение:
http://www.programmersforum.ru/showp...74&postcount=4

[Pavia]

Используй процедуры:
TextBackground - Selects the background color.
TextColor - Selects the foreground character color.

[baton00711]

а как при помощи этих процедур сделать что бы одно и то же сообщение сначала было красным, затем зеленым, синим и т.д.

[Pavia]

uses Crt;
begin
  ClrScr;
  repeat
    Delay(50); {Задержка 50 мс, 1000/50=20 кадров в секунду}
    GoToXY(10,10);
    TextColor(Random(16));
    WriteLn('Press any key!');
  until KeyPressed;
  { Восстанавливаем атрибуты }
  NormVideo;
  WriteLn('Bay-bay!');
end.

[baton00711]

Огромное спасибо, очень помогли

[Вадим Мошев]

Хотелось бы сказать кое-что в дополнение.
ИМХО, если в процедуру textColor() передать значение 0, то текст станет прозрачного цвета, в результате чего его не будет видно. Рекомендовал бы записать выбор цвета так:

TextColor(1 + Random(15));