1. Pascal / Говнокод #4906

    +105

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    case nd of
0..9:days.Caption := '00'+IntToStr(nd);
10..99:days.Caption := '0'+IntToStr(nd);
100..999:days.Caption := IntToStr(nd);
end;
case nh of
0..9:hrs.Caption := '0'+IntToStr(nh);
10..99:hrs.Caption := IntToStr(nh);
end;
case nm of
0..9:mins.Caption := '0'+IntToStr(nm);
10..99:mins.Caption := IntToStr(nm);
end;
case nsec of
0..9:secs1.Caption := '0'+IntToStr(nsec);
10..99:secs1.Caption := IntToStr(nsec);
end;
case nsec2 of
0..9:secs2.Caption := '0000000'+IntToStr(nsec2);
10..99:secs2.Caption := '000000'+IntToStr(nsec2);
100..999:secs2.Caption := '00000'+IntToStr(nsec2);
1000..9999:secs2.Caption := '0000'+IntToStr(nsec2);
10000..99999:secs2.Caption := '000'+IntToStr(nsec2);
100000..999999:secs2.Caption := '00'+IntToStr(nsec2);
1000000..9999999:secs2.Caption := '0'+IntToStr(nsec2);
10000000..99999999:secs2.Caption := IntToStr(nsec2);
end;

    Таймер для дураков.

    Запостил: PEMOHT, 12 Декабря 2010

    Комментарии (8) RSS

    • ava Lure Of Chaos 12.12.2010 20:47 # +2

      а за волшебную лесенку 19-26 большое спасибо *загипнотизировался*
      Ответить

      • ava TarasB 12.12.2010 21:14 # 0

        Кстати, в тему о быстром вычислении числа цифр в числе. Такой вариант не проверяли?
        Ответить

        • ava bugmenot 12.12.2010 21:35 # 0

          если кол-во разрядов вычисляется для преобразования в строку с паддингом, то такой (не буквально такой :) подход оправдан
          Ответить

    • ava bugmenot 12.12.2010 21:32 # 0

      TDuraTimer.Create
      Ответить

    • ava 1291 24.08.2011 23:33 # 0

      А ГДЕ "uses CRT", блеать?!
      Ответить

    Добавить комментарий