Корректный вывод цифровых часов

[yabloko]

Вывожу часы:

function LeadingZero(w : Word) : String;
var
  s : String;
begin
  Str(w:0,s);
  if Length(s) = 1 then
    s := '0' + s;
  LeadingZero := s;
end;

.....

{digital clock}
  gettime(h,m,c,mc);
  outtextxy(10,30,LeadingZero(h));
  outtextxy(40,30,':');
  outtextxy(50,30,LeadingZero(m));
  outtextxy(80,30,':');
  outtextxy(90,30,LeadingZero(c));
  outtextxy(120,30,':');
  outtextxy(130,30,LeadingZero(mc));

как сделать чтобы секунды менялись?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

ну так добавьте вначале стирание, зациклите код вывода, и паузу в конце цикла..
примерно так:

  {digital clock}
  repeat
    { стереть }
    ClearDevice;

    gettime(h,m,c,mc);
    outtextxy(10,30,LeadingZero(h));
    outtextxy(40,30,':');
    outtextxy(50,30,LeadingZero(m));
    outtextxy(80,30,':');
    outtextxy(90,30,LeadingZero(c));
    outtextxy(120,30,':');
    outtextxy(130,30,LeadingZero(mc));
    Delay(20);
  until KeyPressed;

p.s. чтобы не мерцало - стирайте только там, где циферки...

p.p.s. на форуме были примеры цифровых часиков. и, кстати, намного симпатичнее, чем простой OutTextXY