цифровой секундомер в графике, семисегментый Опции

[striker]

http://forum.sources.ru/index.php?showtopi...0&#entry2263928

Сворачивается экран Паскаля (турбо)
присваивание detect'а не помогает

[volvo]

Опять за свое... Я ж показал тебе, как надо делать основной цикл. Ты ВЫЙТИ-то из своей программы пробовал хоть когда-нибудь? То, что она у тебя "сворачивается" - не повод заставлять ДРУГИХ, у кого она НЕ сворачивается, удалять процесс...

Так ли я время преобразую?

А это смотря что хочешь получить... Если число секунд, прошедших с момента запуска - то вот так:

begin
  initgraph(g_driver, g_mode, '');

  i := 0;
  repeat
    stop := false;
    repeat

      curr_time := GetTime;
      while GetTime - curr_time < 100 do;

      xpos := 150; ypos := 150;
      str(i, s);
      cleardevice;
      print(s);

      if keypressed then begin
        stop := true; while keypressed do readkey;
      end;
      inc(i);
    until stop;
    while not keypressed do;
    finished := readkey = #27;
  until finished;
  closegraph;
end.

Проверено на ТП, запусти, если у тебя опять "сворачивается" - прогоняй антивирусы, делай с системой, что хочешь - проблема именно в ней...