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

    +97

    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
    if MethodName = AnsiUpperCase('Зробити_все_чудово_пречудово') then
  begin
    Screen.Cursor := crHourGlass;
    try
      for LowIndex := 0 to 200 do
      begin
        Application.ProcessMessages;
        Sleep(10);
      end;
      ShowInfo('Тепер все чудово-пречудово.'#13#10'Посміхніться!');
    finally
      Screen.Cursor := crDefault;
    end;
  end

    Внутренний скрипотвый язык

    Запостил: stokito, 12 Января 2011

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

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