1. C++ / Говнокод #21692

    −27

    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
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    int kolvo;
    bool sw1, sw2, sw3, sw4;
    void __fastcall TForm2::rab1Change(TObject *Sender)
    {	if((rab1->Text!="")&&(sw1==true))
    	{
    		kolvo++;
    		sw1=false;
    		kolvo_rab->Caption=kolvo;
    	}else if((rab1->Text=="")&&(sw1==false))
    	{
    		kolvo--;
    		sw1=true;
    		kolvo_rab->Caption=kolvo;
    	}}
    void __fastcall TForm2::rab2Change(TObject *Sender)
    {	if((rab2->Text!="")&&(sw2==true))
    	{
    		kolvo++;
    		sw2=false;
    		kolvo_rab->Caption=kolvo;
    	}else if((rab2->Text=="")&&(sw2==false))
    	{
    		kolvo--;
    		sw2=true;
    		kolvo_rab->Caption=kolvo;
    	}}
    void __fastcall TForm2::rab3Change(TObject *Sender)
    {	if((rab3->Text!="")&&(sw3==true))
    	{
    		kolvo++;
    		sw3=false;
    		kolvo_rab->Caption=kolvo;
    	}else if((rab3->Text=="")&&(sw3==false))
    	{
    		kolvo--;
    		sw3=true;
    		kolvo_rab->Caption=kolvo;
    	}}
    void __fastcall TForm2::rab4Change(TObject *Sender)
    {
    	if((rab4->Text!="")&&(sw4==true))
    	{
    		kolvo++;
    		sw4=false;
    		kolvo_rab->Caption=kolvo;
    	}else if((rab4->Text=="")&&(sw4==false))
    	{
    		kolvo--;
    		sw4=true;
    		kolvo_rab->Caption=kolvo;
    	}}

    Говнокод для подсчёта количества введённых данных (в моём случае - подсчёт выполненных работ) и вывода их в Label (Borland C++)

    Запостил: MeleeCreep, 19 Ноября 2016

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

    • На работе у нас база данных, куда заносят случаи посещений. Я опытным глазом смекнул, что у проги - явно дельфийское происхождение. Принёс бинарник домой, проверил - оказалось, BCB.
      В чём преимущество у билдера перед делфей? Он бажный...
      Может, эта приблуда была создана специально для закоренелых крестовиков, желающих получить наслаждение от раскидывания контролов по форме?
      Ответить
      • > В чём преимущество у билдера перед делфей
        Если ты про шестой - ни в чём. Кресты там очень древние, да ещё и нестандартные (допиленные под совместимость с делфиньими либами).
        Ответить
        • А что именно там допилено и как оно помогает совместимости с дельфиньими либами?
          Ответить
      • божемой, какая у вас оцтойная контора

        небось заставляют ходить в пиджаках и к 8:30 утра
        и платят 20 тыщ р
        Ответить
    • >>kolvo_rab
      коловрат
      Ответить

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