- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 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++)
rotretS 19.11.2016 19:16 # 0
В чём преимущество у билдера перед делфей? Он бажный...
Может, эта приблуда была создана специально для закоренелых крестовиков, желающих получить наслаждение от раскидывания контролов по форме?
bormand 19.11.2016 20:40 # 0
Если ты про шестой - ни в чём. Кресты там очень древние, да ещё и нестандартные (допиленные под совместимость с делфиньими либами).
inkanus-gray 19.11.2016 22:35 # 0
kipar 19.11.2016 22:44 # 0
barop 21.11.2016 01:59 # 0
небось заставляют ходить в пиджаках и к 8:30 утра
и платят 20 тыщ р
kegdan 20.11.2016 05:23 # 0
коловрат
Steve_Brown 21.11.2016 15:29 # 0
3_14PAT 21.11.2016 18:56 # 0