1. Список говнокодов пользователя PEMOHT

    Всего: 3

  2. Pascal / Говнокод #4939

    +107

    1. 1
    2. 2
    OpenDialog1.Execute;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

    Угадайте, что будет, если в опендиалоге нажать "Отмена".

    PEMOHT, 16 Декабря 2010

    Комментарии (16)

  3. Pascal / Говнокод #4907

    +109

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    procedure TForm2.ExitButtonClick(Sender: TObject);
begin
Close;
Form1.Close;
end;

    Об Application.Terminate даже и не догадываемся...

    PEMOHT, 12 Декабря 2010

    Комментарии (14)

  4. 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)