Научиться искусству оптимизации кода

Ddv122 · Регистрация: 23.12.2010

Студворк — интернет-сервис помощи студентам

Доброго вечера. Такой вопрос, может есть у кого свободная минутка и может научить правилу формирования кода, делать код более компактным и для других программистов более читаемым.
Мой код практически одинаковый для 3 кнопок,не знаю что можно заключить в процедуру. Код работает, но хочется научиться грамотно всё делать

C++
1
2
3
4
5
6
7
8
9
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
void __fastcall TForm1::btn1Click(TObject *Sender)
{
    Memo2->Clear();              //очистка
    Memo2->Lines->Add("");      //добавление строки
    if (i==1) {                //если i=1
        for( int i=0; i<mmo1->Lines->Count; i++ )
        {
            if (!mmo1->Lines->Strings[i].IsEmpty())   //исключаю пустые строчки
                if (!mmo1->Lines->Strings[i].Pos("#by lida"))
                {
                    stroka=mmo1->Lines->Strings[i];
                    int r=stroka.Pos("#");
                    AnsiString nach=stroka.SubString(r+1, stroka.Length()-r+1);
                    AnsiString kon=stroka.SubString(0, r-1);
                    Memo2->Lines->Add("[reader]");
                    Memo2->Lines->Add(" label = " + nach);
                    Memo2->Lines->Add(" enable = 1");
                    list->Delimiter=':';
                    list->DelimitedText=kon;
                    list2->Delimiter='/';
                    list2->DelimitedText=list->Strings[3].SubString(0, stroka.Pos("0")-1);
                    list2->Strings[2]= StringReplace(list2->Strings[2],"f","0",TReplaceFlags()<<rfReplaceAll);
                    list2->Delete(0);
                    String finde=list2->Strings[0].Trim();
                    String ident;
                    String a=" NTV";
                    if (nach.LowerCase().Trim()!= a.LowerCase().Trim())
                    {
                        for(int i=0; i<list3->Count; i++)
                        {
                            if(list3->Strings[i].Pos(finde))
                            {
                                ident=list3->Strings[i].Trim();
                                ident.Delete(1,5);
                            }
                        }
                    }
                    else
                    {
                        ident="040600,050100,050B00,050900,040610,040620";
                    }
                    list2->Strings[1]= (" CAID= "+ list2->Strings[0]);
                    list2->Delete(0);
                    list->Delete(3);
                    list->Strings[0]=" protocol = "+ list->Strings[0];
                    list->Strings[1]=" device = "+ list->Strings[1] + "," + list->Strings[2] ;
                    list->Strings[3]=" user = " + list->Strings[3];
                    list->Strings[4]=" password = "+ list->Strings[4];
                    list->Strings[5]=" key = " + list->Strings[5];
                    list->Delete(2);
                    Memo2->Lines->AddStrings(list);
                    Memo2->Lines->AddStrings(list2);
                    Memo2->Lines->Add(" IDENT="+ ident);
                    Memo2->Lines->Add( " inactivitytimeout = 20");
                    Memo2->Lines->Add( " reconnecttimeout = 10");
                    Memo2->Lines->Add(" fallback = 0");
                    Memo2->Lines->Add(" group = 1");
                    Memo2->Lines->Add("");
                    stat1->Panels->Items[3]->Text= ( "OSCAM - Готово!");
                }
        }
    }
    else
    {
        ShowMessage("Нажмите кнопку обновить!");
        stat1->Panels->Items[3]->Text= ( "OSCAM - Не готово!");
    }
    btn5Click(0);
    PlaySoundW( L"alert.wav", 0, SND_ASYNC );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    mmo3->Clear();
    mmo3->Lines->Add("");
    if (i==1) {
        for( int i=0; i<mmo1->Lines->Count; i++ )
        {
            if (!mmo1->Lines->Strings[i].IsEmpty())   //исключаю пустые строчки
                if (!mmo1->Lines->Strings[i].Pos("#by lida"))
                {
                    stroka=mmo1->Lines->Strings[i];
                    int r=stroka.Pos("#");
                    AnsiString nach=stroka.SubString(r+1, stroka.Length()-r+1);
                    AnsiString kon=stroka.SubString(0, r-1);
                    mmo3->Lines->Add("[reader]");
                    mmo3->Lines->Add(" label = " + nach);
                    list->Delimiter=':';
                    list->DelimitedText=kon;
                    list2->Delimiter='/';
                    list2->DelimitedText=list->Strings[3].SubString(0, stroka.Pos("0")-1);
                    list2->Strings[2]= StringReplace(list2->Strings[2],"f","0",TReplaceFlags()<<rfReplaceAll);
                    list2->Delete(0);
                    String finde=list2->Strings[0];
                    String ident;
                    String a=" NTV";
                    if (nach.LowerCase().Trim()!= a.LowerCase().Trim())
                    {
                        for(int i=0; i<list3->Count; i++)
                        {
                            if(list3->Strings[i].Pos(finde))
                            {
                                ident=list3->Strings[i];
                                ident.Delete(1,5);
                            }
                        }
                    }
                    else
                    {
                        ident="040600,050100,050B00,050900,040610,040620";
                    }
                    list2->Strings[1]= (" CAID= "+ list2->Strings[0]);
                    list2->Delete(0);
                    list->Delete(3);
                    list->Strings[0]=" protocol = "+ list->Strings[0];
                    list->Strings[1]=" device = "+ list->Strings[1] + "," + list->Strings[2] ;
                    list->Strings[3]=" Account = "+ list->Strings[3] + "," + list->Strings[4];;
                    list->Strings[5]=" key = "+ list->Strings[5];
                    list->Delete(2);
                    list->Delete(3);
                    mmo3->Lines->AddStrings(list);
                    mmo3->Lines->AddStrings(list2);
                    mmo3->Lines->Add(" IDENT="+ ident);
                    mmo3->Lines->Add(" ReconnectTimeout = 20");
                    mmo3->Lines->Add(" InactivityTimeOut = 15");
                    mmo3->Lines->Add(" fallback = 0");
                    mmo3->Lines->Add(" group = 1");
                    mmo3->Lines->Add("");
                    stat1->Panels->Items[2]->Text= ( "MPCS - Готово!");
                }
        }
    }
    else
    {
        ShowMessage("Нажмите кнопку обновить!");
        stat1->Panels->Items[2]->Text= ( "MPCS - НЕ готово!");
    }
    PlaySoundW( L"alert.wav", 0, SND_ASYNC );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject *Sender)
{
    mmo4->Clear();
    if (i==1) {
        for( int i=0; i<mmo1->Lines->Count; i++ )
        {
            if (!mmo1->Lines->Strings[i].IsEmpty())   //исключаю пустые строчки
                if (!mmo1->Lines->Strings[i].Pos("#by lida"))
                {
                    stroka=mmo1->Lines->Strings[i];
                    int r=stroka.Pos("#");
                    AnsiString nach=stroka.SubString(r+1, stroka.Length()-r+1);
                    AnsiString kon=stroka.SubString(0, r-1);
                    list->Delimiter=':';
                    list->DelimitedText=kon;
                    list->Delete(3);
                    list->Strings[0]=list->Strings[0] + "525://" + list->Strings[3] + ":" + list->Strings[4] + "@" + list->Strings[1]  + ":" + list->Strings[2] +  ":" + list->Strings[5] ;
                    list->Delete(2);
                    list->Delete(3);
                    mmo4->Lines->Add(list->Strings[0]);
                    stat1->Panels->Items[4]->Text= ( "SNS - Готово!");
                }
        }
    }
    else
    {
        ShowMessage("Нажмите кнопку обновить!");
    }
    PlaySoundW( L"alert.wav", 0, SND_ASYNC );
}
//---------------------------------------------------------------------------

Что код делает:
Из такого вида строки
newcamd:127.0.0.1:5000:0/4AE1/ffff:tuner:tuner:01020304050607080910111 21314# oskam
Конвертирует её в формат 3 других программ для SatTV
1

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
[reader]
 label =  oskam
 enable = 1
 protocol = newcamd
 device = 127.0.0.1,5000
 user = tuner
 password = tuner
 key = 0102030405060708091011121314
 CAID= 4AE1
 IDENT=
 inactivitytimeout = 20
 reconnecttimeout = 10
 fallback = 0
 group = 1

2

Code
1
2
3
4
5
6
7
8
9
10
11
12
[reader]
 label =  oskam
 protocol = newcamd
 device = 127.0.0.1,5000
 Account = tuner,tuner
 key = 0102030405060708091011121314
 CAID= 4AE1
 IDENT=
 ReconnectTimeout = 20
 InactivityTimeOut = 15
 fallback = 0
 group = 1

3

Code
1
newcamd525://tuner:tuner@127.0.0.1:5000:0102030405060708091011121314

@Avazart · 07.02.2013, 19:07

Кстати для выходных файлов наверное можно было использовать IniFile

@Pirat-SR · 07.02.2013, 21:04

Сообщение от Ddv122

Можно пример этой утилиты(исходника)??Уж очень мне интересно, как скомпилируется текст с label

Вот код который записан в лабел:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//---------------------------------------------------------------------------
 
void __fastcall TForm2::On_PlayClick(TObject *Sender) //Label1Click
{
OnPbs->Visible = false;
OnP->Visible = false;
OnNy->Visible = false;
OnNn->Visible = false;
OnPnm->Visible = false;
OnStvo->Visible = false;
OnM->Visible = false;
OnYpk->Visible = false;
PlayPbs->Visible = true;
PlayP->Visible = true;
PlayNy->Visible = true;
PlayNn->Visible = true;
PlayPnm->Visible = true;
PlayStvo->Visible = true;
PlayM->Visible = true;
PlayYpk->Visible = true;
PlayPbs1->Visible = true;
PlayPbs2->Visible = true;
PlayP1->Visible = true;
PlayP2->Visible = true;
}
//---------------------------------------------------------------------------

Вот код который этот лаберл вызывает:

C++
1
2
3
4
5
6
7
8
9
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
//---------------------------------------------------------------------------
 
void __fastcall TForm2::PlayYpkClick(TObject *Sender)
{
if(FileExists("Tracks/K4-Ypk.mp3"))
{
Timer1->Enabled = false;
MediaPlayer1->Close();
MediaPlayer1->FileName = "";
MediaPlayer1->FileName = "Tracks/K4-Ypk.mp3";
MediaPlayer1->Open();
On_PlayClick(Form2);                                 //Label1Click
OnYpk->Visible = true;
PlayYpk->Visible = false;
StopE->Visible = false;
PauseE->Visible = false;
Tracks_Play_Pause_Stop->Caption = "Track Play";
Timer1->Interval = 200;
MediaPlayer1->Play();
Timer1->Enabled = true;
}
else
{
Application->MessageBox("Музыкальный файл не найден! \nВоспроизведение невозможно!",
"Ошибка!", MB_ICONSTOP);
}
if(FileExists("Texts tracks/K4-Ypk.v1.0"))
{
RE->Lines->Clear();
RE->Lines->LoadFromFile("Texts tracks/K4-Ypk.v1.0");
SaveText->Caption = "Я посылаю код";
}
else
{
RE->Text = ("Текстовый файл не найден! \nЧтение невозможно!");
}
}
//---------------------------------------------------------------------------

И таких кнопок с воспроизведением у меня в программе 11 штук.

Ddv122 · 07.02.2013, 21:21 **[ТС]**

Pirat-SR, ха, а в процедуру нельзя было объявить?и почему label?чего бы просто кнопку не скрыть?

@Lelik-pahan · 07.02.2013, 21:22

Ddv122, я так понимаю, что в первых двух функциях у тебя всё различие лишь в используемом Memo (2 или 3)? тогда сделай функцию, в которую будешь передвать указатель на нужное Memo

C++
1
2
3
4
5
6
7
8
9
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
void TForm1::Parser(TMemo *memo)
{
    memo->Clear();
    memo->Lines->Add("");
    if (i==1) {
        for( int i=0; i<mmo1->Lines->Count; i++ )
        {
            if (!mmo1->Lines->Strings[i].IsEmpty())   //исключаю пустые строчки
                if (!mmo1->Lines->Strings[i].Pos("#by lida"))
                {
                    stroka=mmo1->Lines->Strings[i];
                    int r=stroka.Pos("#");
                    AnsiString nach=stroka.SubString(r+1, stroka.Length()-r+1);
                    AnsiString kon=stroka.SubString(0, r-1);
                    memo->Lines->Add("[reader]");
                    memo->Lines->Add(" label = " + nach);
                    list->Delimiter=':';
                    list->DelimitedText=kon;
                    list2->Delimiter='/';
                    list2->DelimitedText=list->Strings[3].SubString(0, stroka.Pos("0")-1);
                    list2->Strings[2]= StringReplace(list2->Strings[2],"f","0",TReplaceFlags()<<rfReplaceAll);
                    list2->Delete(0);
                    String finde=list2->Strings[0];
                    String ident;
                    String a=" NTV";
                    if (nach.LowerCase().Trim()!= a.LowerCase().Trim())
                    {
                        for(int i=0; i<list3->Count; i++)
                        {
                            if(list3->Strings[i].Pos(finde))
                            {
                                ident=list3->Strings[i];
                                ident.Delete(1,5);
                            }
                        }
                    }
                    else
                    {
                        ident="040600,050100,050B00,050900,040610,040620";
                    }
                    list2->Strings[1]= (" CAID= "+ list2->Strings[0]);
                    list2->Delete(0);
                    list->Delete(3);
                    list->Strings[0]=" protocol = "+ list->Strings[0];
                    list->Strings[1]=" device = "+ list->Strings[1] + "," + list->Strings[2] ;
                    list->Strings[3]=" Account = "+ list->Strings[3] + "," + list->Strings[4];;
                    list->Strings[5]=" key = "+ list->Strings[5];
                    list->Delete(2);
                    list->Delete(3);
                    memo->Lines->AddStrings(list);
                    memo->Lines->AddStrings(list2);
                    memo->Lines->Add(" IDENT="+ ident);
                    memo->Lines->Add(" ReconnectTimeout = 20");
                    memo->Lines->Add(" InactivityTimeOut = 15");
                    memo->Lines->Add(" fallback = 0");
                    memo->Lines->Add(" group = 1");
                    memo->Lines->Add("");
                    stat1->Panels->Items[2]->Text= ( "MPCS - Ãîòîâî!");
                }
        }
    }
    else
    {
        ShowMessage("Нажмите кнопку обновить!");
        stat1->Panels->Items[2]->Text= ( "OSCAM - Не готово!");
    }
    PlaySoundW( L"alert.wav", 0, SND_ASYNC );
}

А на кликах по кнопкам вызывай

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::btn1Click(TObject *Sender)
{
    Parser(Memo2);
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Parser(mmo3);
}

Ddv122 · 07.02.2013, 21:25 **[ТС]**

Lelik-pahan, разница в 3х строках, но спасибо за решение

C++
1
2
3
4
          nList->Add(" user = " + SS[4]);
          nList->Add(" password = "+ SS[5]); }
          if (varnt==2)  {
          nList->Add(" Account = "+SS[4]+","+SS[5]);   }

@Lelik-pahan · 07.02.2013, 21:34

Это не проблема

C++
1
2
3
4
5
6
7
8
9
void TForm1::Parser(TMemo *memo, bool variant)
{
//.......здесь общая часть
    if (variant)
    {
        //3 строки, в которых разница
    }
//...снова общая часть
}

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::btn1Click(TObject *Sender)
{
    Parser(Memo2, true);
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Parser(mmo3, false);
}

Добавлено через 5 минут
а если возможных вариантов больше двух, то

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
void TForm1::Parser(TMemo *memo, int variant)
{
//.......здесь общая часть 
    switch (variant)
    {
        case 0:
            //......
            break;
        case 1:
            //......
            break;
        case 2:
            //......
            break;
    }   
//...снова общая часть
}

@Pirat-SR · 07.02.2013, 21:42

Сообщение от Ddv122

Pirat-SR, ха, а в процедуру нельзя было объявить?и почему label?чего бы просто кнопку не скрыть?

Я самоучка в C++ Builder и изучаю его методом тыка. Про процедуры я слышал на этом форуме но не знаю что это. Мне удобней использовать лабелы, тем более можно их подписывать какой на них код. С кнопками это прошедший этап, лабелы более компактные.

Ddv122 · 07.02.2013, 22:18 **[ТС]**

nick42, все по идеи хорошо работает но- цикл не работает, дублирует одну и туже строку

Code
1
2
3
4
5
6
7
8
9
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
52
53
54
55
56
57
58
59
TStringList *list ,* list2,* list3, *nList;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    list = new TStringList;        // Создание экземпляра класса TStringList
    list2 = new TStringList;      // Создание экземпляра класса TStringList
    list3 = new TStringList;     // Создание экземпляра класса TStringList
    nList = new TStringList;     // Создание экземпляра класса TStringList
 
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1( ) {
    delete list;          //освобождаем память
    delete list2;        //освобождаем память
    delete list3;       //освобождаем память
    delete nList;        //освобождаем память
}
 
void __fastcall TForm1::Button19Click(TObject *Sender)
{
#define SS list->Strings
    int varnt = ((TButton *)Sender)->Tag;
    mmo4->Clear();
    if (i!=1) ShowMessage("!");
    else  for(int j=0; j<mmo1->Lines->Count; j++)
      if (mmo1->Lines->Strings[j].Pos("#by lida")==0) {
        ExtractStrings(TSysCharSet()<<':'<<'#'<<'\r'<<'\0',TSysCharSet(),
           mmo1->Lines->Strings[j].c_str(),list);
        if (varnt==3) mmo4->Lines->Add(String().sprintf(
          "%s525://%s:%s@%s:%s:%s ",SS[0],SS[4],SS[5],SS[1],SS[2],SS[6] ));
else  {
          nList->Add("[reader]");
          nList->Add(" label = "+SS[7]);
          nList->Add(" protocol = "+SS[0]);
          nList->Add(" key = "+SS[6]);
          nList->Add(" device = "+SS[1]+","+SS[2]);
          if (varnt==1) {
          nList->Add(" user = " + SS[4]);
          nList->Add(" password = "+ SS[5]); }
          if (varnt==2)  {
          nList->Add(" Account = "+SS[4]+","+SS[5]); }
          else
 
           nList->Add(" Group = 1");
           nList->Add(" fallback = 0");
           nList->Add(" CAID= "+ SS[3]);
           nList->Add(" Idents= ");
           nList->Add(" inactivitytimeout = 20");
           nList->Add(" reconnecttimeout = 10");
           nList->Add("");
 
 
     }
 
        }
            mmo4->Lines->AddStrings(nList);
#undef SS
}

Добавлено через 15 минут
не пойму где мой косяк...

@nick42 · 07.02.2013, 22:34

.. мы про цикл забыли. Надо очищать:

C++
1
2
        list->Clear(); 
        ExtractStrings(...

Добавлено через 9 минут
П.С. а еще точнее - нужно оба очищать (и list, и nList) еще перед циклом

Ddv122 · 07.02.2013, 23:28 **[ТС]**

nick42, спасибо осталось одно переделать поиск
он был такой

C++
1
2
3
4
     if(list3->Strings[i].Pos(finde))
     {
       ident=list3->Strings[i];
       ident.Delete(1,5);

Но нужно немного изменить Поиск
Он должен осуществляться по 2 параметрам
Искомые слова в SS[3] и SS[7]
Поиск по List3, но приоритет отдаётся [B]SS[7] , и результат должен быть, текст после знака :
т.е в
SS[3] и SS[7]
строки:
0500
NTV
в list3
0500:00001,05877
NTV:00001,05877
0500:00501,58954
и в итоге у нас должно получится
00001,05877
но количество знаков до ":" не известно

cpp_developer · 08.02.2013, 00:46

Кто мне скажет, с чего это все начиналось, и почему тема уверенно превращается в свалку? Или выходим на финишную/изначальную прямую, или будем делать теме больно

.

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .
Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	07.02.2013, 19:07
	Кстати для выходных файлов наверное можно было использовать IniFile 1

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	07.02.2013, 21:21 [ТС]
	Pirat-SR, ха, а в процедуру нельзя было объявить?и почему label?чего бы просто кнопку не скрыть? 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	08.02.2013, 00:46
	Кто мне скажет, с чего это все начиналось, и почему тема уверенно превращается в свалку? Или выходим на финишную/изначальную прямую, или будем делать теме больно . 0