Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 08.04.2015
Сообщений: 17

Оптимизировать код работы с однотипными компонентами

07.05.2015, 15:07. Показов 798. Ответов 4
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Есть код прямиком из преисподнейЭто чудо работает, и даже может создавать адекватные запросы :
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
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242

int kol=0,count=ComboBox1->Items->Count, ind, j;
bool first=0;
String log[8];
if (Form1->slot==1)
   {log[8]=Form1->ComboBox1->Text;Form9->QuickRep1->DataSet=DataModule4->ADOQuery1;}
else
   {log[8]=Form1->ComboBox2->Text;Form9->QuickRep1->DataSet=DataModule4->ADOQuery2;}
AnsiString select="SELECT";
AnsiString where=" WHERE (";
TStringList *Dat = new TStringList;
Dat->AddStrings(ComboBox1->Items);
count-=1;
for (int i=0;i<8;i++)
{
switch (i){
case 0: for (j=0;j<count;j++)
            if (ComboBox1->Text==Dat->Strings[j])
            {
               select+=" ["+log[8]+"].["+ComboBox1->Text+"]";
               kol++;
               log[i]=ComboBox1->Text;
               ind=RadioGroup1->ItemIndex;
               if (ind!=0)
                 {
                 switch (ind){
                 case 1:where+="((["+log[8]+"].["+ComboBox1->Text+"])<\'"+LabeledEdit1->Text+"\')";first=1;
                        break;
                 case 2:where+="((["+log[8]+"].["+ComboBox1->Text+"])>\'"+LabeledEdit1->Text+"\')";first=1;
                        break;
                 case 3:where+="((["+log[8]+"].["+ComboBox1->Text+"])<=\'"+LabeledEdit1->Text+"\')";first=1;
                        break;
                 case 4:where+="((["+log[8]+"].["+ComboBox1->Text+"])>=\'"+LabeledEdit1->Text+"\')";first=1;
                        break;
                 case 5:where+="((["+log[8]+"].["+ComboBox1->Text+"])=\'"+LabeledEdit1->Text+"\')";first=1;
                        break;
                 case 6:where+="((["+log[8]+"].["+ComboBox1->Text+"])=\'"+LabeledEdit1->Text+"\' Or (["+log[8]+"].["+ComboBox1->Text+"])=\'"+LabeledEdit2->Text+"\'))";first=1;
                        break;
                 case 7:where+="((["+log[8]+"].["+ComboBox1->Text+"]) Between \'"+LabeledEdit1->Text+"\' And \'"+LabeledEdit2->Text+"\')";first=1;
                        break;
                             }
                 }
            }
        break;
case 1: for (j=0;j<count;j++)
            if (ComboBox2->Text==Dat->Strings[j])
            {
               select+=",["+log[8]+"].["+ComboBox2->Text+"]";
               kol++;
               log[i]=ComboBox2->Text;
               ind=RadioGroup2->ItemIndex;
               if (ind!=0)
                 {
                 switch (ind){
                 case 1:if(first==0){} else {where+=" AND ((["+log[8]+"].["+ComboBox2->Text+"])<\'"+LabeledEdit3->Text+"\')";}
                        break;
                 case 2:where+=" AND ((["+log[8]+"].["+ComboBox2->Text+"])>\'"+LabeledEdit3->Text+"\')";
                        break;
                 case 3:where+=" AND ((["+log[8]+"].["+ComboBox2->Text+"])<=\'"+LabeledEdit3->Text+"\')";
                        break;
                 case 4:where+=" AND ((["+log[8]+"].["+ComboBox2->Text+"])>=\'"+LabeledEdit3->Text+"\')";
                        break;
                 case 5:where+=" AND ((["+log[8]+"].["+ComboBox2->Text+"])=\'"+LabeledEdit3->Text+"\')";
                        break;
                 case 6:where+=" AND ((["+log[8]+"].["+ComboBox2->Text+"])=\'"+LabeledEdit3->Text+"\' Or (["+log[8]+"].["+ComboBox2->Text+"])=\'"+LabeledEdit4->Text+"\'))";
                        break;
                 case 7:where+=" AND ((["+log[8]+"].["+ComboBox2->Text+"]) Between \'"+LabeledEdit3->Text+"\' And \'"+LabeledEdit4->Text+"\')";
                        break;
                             }
                 }
            }
        break;
case 2: for (j=0;j<count;j++)
            if (ComboBox3->Text==Dat->Strings[j])
            {
               select+=",["+log[8]+"].["+ComboBox3->Text+"]";
               kol++;
               log[i]=ComboBox3->Text;
               ind=RadioGroup3->ItemIndex;
               if (ind!=0)
                 {
                 switch (ind){
                 case 1:where+=" AND ((["+log[8]+"].["+ComboBox3->Text+"])<\'"+LabeledEdit5->Text+"\')";
                        break;
                 case 2:where+=" AND ((["+log[8]+"].["+ComboBox3->Text+"])>\'"+LabeledEdit5->Text+"\')";
                        break;
                 case 3:where+=" AND ((["+log[8]+"].["+ComboBox3->Text+"])<=\'"+LabeledEdit5->Text+"\')";
                        break;
                 case 4:where+=" AND ((["+log[8]+"].["+ComboBox3->Text+"])>=\'"+LabeledEdit5->Text+"\')";
                        break;
                 case 5:where+=" AND ((["+log[8]+"].["+ComboBox3->Text+"])=\'"+LabeledEdit5->Text+"\')";
                        break;
                 case 6:where+=" AND ((["+log[8]+"].["+ComboBox3->Text+"])=\'"+LabeledEdit5->Text+"\' Or (["+log[8]+"].["+ComboBox3->Text+"])=\'"+LabeledEdit6->Text+"\'))";
                        break;
                 case 7:where+=" AND ((["+log[8]+"].["+ComboBox3->Text+"]) Between \'"+LabeledEdit5->Text+"\' And \'"+LabeledEdit6->Text+"\')";
                        break;
                             }
                 }
            }
        break;
case 3:  for (j=0;j<count;j++)
            if (ComboBox4->Text==Dat->Strings[j])
            {
               select+=",["+log[8]+"].["+ComboBox4->Text+"]";
               kol++;
               log[i]=ComboBox4->Text;
               ind=RadioGroup4->ItemIndex;
               if (ind!=0)
                 {
                 switch (ind){
                 case 1:where+=" AND ((["+log[8]+"].["+ComboBox4->Text+"])<\'"+LabeledEdit7->Text+"\')";
                        break;
                 case 2:where+=" AND ((["+log[8]+"].["+ComboBox4->Text+"])>\'"+LabeledEdit7->Text+"\')";
                        break;
                 case 3:where+=" AND ((["+log[8]+"].["+ComboBox4->Text+"])<=\'"+LabeledEdit7->Text+"\')";
                        break;
                 case 4:where+=" AND ((["+log[8]+"].["+ComboBox4->Text+"])>=\'"+LabeledEdit7->Text+"\')";
                        break;
                 case 5:where+=" AND ((["+log[8]+"].["+ComboBox4->Text+"])=\'"+LabeledEdit7->Text+"\')";
                        break;
                 case 6:where+=" AND ((["+log[8]+"].["+ComboBox4->Text+"])=\'"+LabeledEdit7->Text+"\' Or (["+log[8]+"].["+ComboBox4->Text+"])=\'"+LabeledEdit8->Text+"\'))";
                        break;
                 case 7:where+=" AND ((["+log[8]+"].["+ComboBox4->Text+"]) Between \'"+LabeledEdit7->Text+"\' And \'"+LabeledEdit8->Text+"\')";
                        break;
                             }
                 }
            }
        break;
case 4: for (j=0;j<count;j++)
            if (ComboBox5->Text==Dat->Strings[j])
            {
               select+=",["+log[8]+"].["+ComboBox5->Text+"]";
               kol++;
               log[i]=ComboBox5->Text;
               ind=RadioGroup5->ItemIndex;
               if (ind!=0)
                 {
                 switch (ind){
                 case 1:where+=" AND ((["+log[8]+"].["+ComboBox5->Text+"])<\'"+LabeledEdit9->Text+"\')";
                        break;
                 case 2:where+=" AND ((["+log[8]+"].["+ComboBox5->Text+"])>\'"+LabeledEdit9->Text+"\')";
                        break;
                 case 3:where+=" AND ((["+log[8]+"].["+ComboBox5->Text+"])<=\'"+LabeledEdit9->Text+"\')";
                        break;
                 case 4:where+=" AND ((["+log[8]+"].["+ComboBox5->Text+"])>=\'"+LabeledEdit9->Text+"\')";
                        break;
                 case 5:where+=" AND ((["+log[8]+"].["+ComboBox5->Text+"])=\'"+LabeledEdit9->Text+"\')";
                        break;
                 case 6:where+=" AND ((["+log[8]+"].["+ComboBox5->Text+"])=\'"+LabeledEdit9->Text+"\' Or (["+log[8]+"].["+ComboBox5->Text+"])=\'"+LabeledEdit10->Text+"\'))";
                        break;
                 case 7:where+=" AND ((["+log[8]+"].["+ComboBox5->Text+"]) Between \'"+LabeledEdit9->Text+"\' And \'"+LabeledEdit10->Text+"\')";
                        break;
                             }
            }
            }
        break;
case 5: for (j=0;j<count;j++)
            if (ComboBox6->Text==Dat->Strings[j])
            {
               select+=",["+log[8]+"].["+ComboBox6->Text+"]";
               kol++;
               log[i]=ComboBox6->Text;
               ind=RadioGroup6->ItemIndex;
               if (ind!=0)
                 {
                 switch (ind){
                 case 1:where+=" AND ((["+log[8]+"].["+ComboBox6->Text+"])<\'"+LabeledEdit11->Text+"\')";
                        break;
                 case 2:where+=" AND ((["+log[8]+"].["+ComboBox6->Text+"])>\'"+LabeledEdit11->Text+"\')";
                        break;
                 case 3:where+=" AND ((["+log[8]+"].["+ComboBox6->Text+"])<=\'"+LabeledEdit11->Text+"\')";
                        break;
                 case 4:where+=" AND ((["+log[8]+"].["+ComboBox6->Text+"])>=\'"+LabeledEdit11->Text+"\')";
                        break;
                 case 5:where+=" AND ((["+log[8]+"].["+ComboBox6->Text+"])=\'"+LabeledEdit11->Text+"\')";
                        break;
                 case 6:where+=" AND ((["+log[8]+"].["+ComboBox6->Text+"])=\'"+LabeledEdit11->Text+"\' Or (["+log[8]+"].["+ComboBox6->Text+"])=\'"+LabeledEdit12->Text+"\'))";
                        break;
                 case 7:where+=" AND ((["+log[8]+"].["+ComboBox6->Text+"]) Between \'"+LabeledEdit11->Text+"\' And \'"+LabeledEdit12->Text+"\')";
                        break;
                             }
            }
            }
        break;
case 6: for (j=0;j<count;j++)
            if (ComboBox7->Text==Dat->Strings[j])
            {
               select+=",["+log[8]+"].["+ComboBox7->Text+"]";
               kol++;
               log[i]=ComboBox7->Text;
               ind=RadioGroup7->ItemIndex;
               if (ind!=0)
                 {
                 switch (ind){
                 case 1:where+=" AND ((["+log[8]+"].["+ComboBox7->Text+"])<\'"+LabeledEdit13->Text+"\')";
                        break;
                 case 2:where+=" AND ((["+log[8]+"].["+ComboBox7->Text+"])>\'"+LabeledEdit13->Text+"\')";
                        break;
                 case 3:where+=" AND ((["+log[8]+"].["+ComboBox7->Text+"])<=\'"+LabeledEdit13->Text+"\')";
                        break;
                 case 4:where+=" AND ((["+log[8]+"].["+ComboBox7->Text+"])>=\'"+LabeledEdit13->Text+"\')";
                        break;
                 case 5:where+=" AND ((["+log[8]+"].["+ComboBox7->Text+"])=\'"+LabeledEdit13->Text+"\')";
                        break;
                 case 6:where+=" AND ((["+log[8]+"].["+ComboBox7->Text+"])=\'"+LabeledEdit13->Text+"\' Or (["+log[8]+"].["+ComboBox7->Text+"])=\'"+LabeledEdit14->Text+"\'))";
                        break;
                 case 7:where+=" AND ((["+log[8]+"].["+ComboBox7->Text+"]) Between \'"+LabeledEdit13->Text+"\' And \'"+LabeledEdit14->Text+"\')";
                        break;
                             }
            }
            }
        break;
case 7: for (j=0;j<count;j++)
            if (ComboBox8->Text==Dat->Strings[j])
            {
               select+=",["+log[8]+"].["+ComboBox8->Text+"]";
               kol++;
               log[i]=ComboBox8->Text;
               ind=RadioGroup8->ItemIndex;
               if (ind!=0)
                 {
                 switch (ind){
                 case 1:where+=" AND ((["+log[8]+"].["+ComboBox8->Text+"])<\'"+LabeledEdit15->Text+"\')";
                        break;
                 case 2:where+=" AND ((["+log[8]+"].["+ComboBox8->Text+"])>\'"+LabeledEdit15->Text+"\')";
                        break;
                 case 3:where+=" AND ((["+log[8]+"].["+ComboBox8->Text+"])<=\'"+LabeledEdit15->Text+"\')";
                        break;
                 case 4:where+=" AND ((["+log[8]+"].["+ComboBox8->Text+"])>=\'"+LabeledEdit15->Text+"\')";
                        break;
                 case 5:where+=" AND ((["+log[8]+"].["+ComboBox8->Text+"])=\'"+LabeledEdit15->Text+"\')";
                        break;
                 case 6:where+=" AND ((["+log[8]+"].["+ComboBox8->Text+"])=\'"+LabeledEdit15->Text+"\' Or (["+log[8]+"].["+ComboBox8->Text+"])=\'"+LabeledEdit16->Text+"\'))";
                        break;
                 case 7:where+=" AND ((["+log[8]+"].["+ComboBox8->Text+"]) Between \'"+LabeledEdit15->Text+"\' And \'"+LabeledEdit16->Text+"\')";
                        break;
                             }
            }
            }
        break;
}
}
//всё не поместилось
Может кто-то помочь написать функцию для оптимизации?Просто я их отчаянно избегаю,т.к. плохо в них понимаю.

P.S код не до конца доделан так как он не может построить вопрос если условия отбора нет в первом поле.Но сам код сильно разросся.Поэтому прошу помощи.

P.P.S может кому-то и пригодится это чудо.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 07.05.2015, 15:07
Ответы с готовыми решениями:

Оптимизировать код работы с матрицей
Задали задачу, я ее решил, но хотелось бы чтобы выглядело более читабельно и презентабельно. Приму любую критику, предложения и помощь) ...

Функция пика в последовательности - оптимизировать код для ускорения его работы
Я написала функцию для поиска пика, но программа выполняется примерно 14 сек. Как возможно оптимизировать функцию unsigned long...

Как после работы с COM компонентами завершать их
Всем привет! Как после работы с COM компонентами завершать их. (На пример работа с MS- WORD)

4
0 / 0 / 0
Регистрация: 08.04.2015
Сообщений: 17
07.05.2015, 15:08  [ТС]
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

switch (kol)
{
case 0: ShowMessage("Ââåäèòå ìèíèìóì 2 ïîëÿ");return;
case 1: ShowMessage("Ââåäèòå ìèíèìóì 2 ïîëÿ");return;
case 2: Form9->QRLabel1->Caption="";
        Form9->QRLabel2->Caption="";
        Form9->QRLabel3->Caption="";
        Form9->QRLabel4->Caption=log[0];
        Form9->QRLabel5->Caption=log[1];
        Form9->QRLabel6->Caption="";
        Form9->QRLabel7->Caption="";
        Form9->QRLabel8->Caption="";
 
        Form9->QRDBText1->Visible=false;
        Form9->QRDBText2->Visible=false;
        Form9->QRDBText3->Visible=false;
        Form9->QRDBText4->DataField=log[0];
        Form9->QRDBText5->DataField=log[1];
        Form9->QRDBText6->Visible=false;
        Form9->QRDBText7->Visible=false;
        Form9->QRDBText8->Visible=false;
        break;
case 3: Form9->QRLabel1->Caption="";
        Form9->QRLabel2->Caption="";
        Form9->QRLabel3->Caption="";
        Form9->QRLabel4->Caption=log[0];
        Form9->QRLabel5->Caption=log[1];
        Form9->QRLabel6->Caption=log[2];
        Form9->QRLabel7->Caption="";
        Form9->QRLabel8->Caption="";
 
        Form9->QRDBText1->Visible=false;
        Form9->QRDBText2->Visible=false;
        Form9->QRDBText3->Visible=false;
        Form9->QRDBText4->DataField=log[0];
        Form9->QRDBText5->DataField=log[1];
        Form9->QRDBText6->DataField=log[2];
        Form9->QRDBText7->Visible=false;
        Form9->QRDBText8->Visible=false;
        break;
case 4: Form9->QRLabel1->Caption="";
        Form9->QRLabel2->Caption="";
        Form9->QRLabel3->Caption=log[0];
        Form9->QRLabel4->Caption=log[1];
        Form9->QRLabel5->Caption=log[2];
        Form9->QRLabel6->Caption=log[3];
        Form9->QRLabel7->Caption="";
        Form9->QRLabel8->Caption="";
 
        Form9->QRDBText1->Visible=false;
        Form9->QRDBText2->Visible=false;
        Form9->QRDBText3->DataField=log[0];
        Form9->QRDBText4->DataField=log[1];
        Form9->QRDBText5->DataField=log[2];
        Form9->QRDBText6->DataField=log[3];
        Form9->QRDBText7->Visible=false;
        Form9->QRDBText8->Visible=false;
        break;
case 5: Form9->QRLabel1->Caption="";
        Form9->QRLabel2->Caption="";
        Form9->QRLabel3->Caption=log[0];
        Form9->QRLabel4->Caption=log[1];
        Form9->QRLabel5->Caption=log[2];
        Form9->QRLabel6->Caption=log[3];
        Form9->QRLabel7->Caption=log[4];
        Form9->QRLabel8->Caption="";
 
        Form9->QRDBText1->Visible=false;
        Form9->QRDBText2->Visible=false;
        Form9->QRDBText3->DataField=log[0];
        Form9->QRDBText4->DataField=log[1];
        Form9->QRDBText5->DataField=log[2];
        Form9->QRDBText6->DataField=log[3];
        Form9->QRDBText7->DataField=log[4];
        Form9->QRDBText8->Visible=false;
        break;
case 6: Form9->QRLabel1->Caption="";
        Form9->QRLabel2->Caption=log[0];
        Form9->QRLabel3->Caption=log[1];
        Form9->QRLabel4->Caption=log[2];
        Form9->QRLabel5->Caption=log[3];
        Form9->QRLabel6->Caption=log[4];
        Form9->QRLabel7->Caption=log[5];
        Form9->QRLabel8->Caption="";
 
        Form9->QRDBText1->Visible=false;
        Form9->QRDBText2->DataField=log[0];
        Form9->QRDBText3->DataField=log[1];
        Form9->QRDBText4->DataField=log[2];
        Form9->QRDBText5->DataField=log[3];
        Form9->QRDBText6->DataField=log[4];
        Form9->QRDBText7->DataField=log[5];
        Form9->QRDBText8->Visible=false;
        break;
case 7: Form9->QRLabel1->Caption=log[0];
        Form9->QRLabel2->Caption=log[1];
        Form9->QRLabel3->Caption=log[2];
        Form9->QRLabel4->Caption=log[3];
        Form9->QRLabel5->Caption=log[4];
        Form9->QRLabel6->Caption=log[5];
        Form9->QRLabel7->Caption=log[6];
        Form9->QRLabel8->Caption="";
 
        Form9->QRDBText1->DataField=log[0];
        Form9->QRDBText2->DataField=log[1];
        Form9->QRDBText3->DataField=log[2];
        Form9->QRDBText4->DataField=log[3];
        Form9->QRDBText5->DataField=log[4];
        Form9->QRDBText6->DataField=log[5];
        Form9->QRDBText7->DataField=log[6];
        Form9->QRDBText8->Visible=false;
        break;
case 8: Form9->QRLabel1->Caption=log[0];
        Form9->QRLabel2->Caption=log[1];
        Form9->QRLabel3->Caption=log[2];
        Form9->QRLabel4->Caption=log[3];
        Form9->QRLabel5->Caption=log[4];
        Form9->QRLabel6->Caption=log[5];
        Form9->QRLabel7->Caption=log[6];
        Form9->QRLabel8->Caption=log[7];
 
        Form9->QRDBText1->DataField=log[0];
        Form9->QRDBText2->DataField=log[1];
        Form9->QRDBText3->DataField=log[2];
        Form9->QRDBText4->DataField=log[3];
        Form9->QRDBText5->DataField=log[4];
        Form9->QRDBText6->DataField=log[5];
        Form9->QRDBText7->DataField=log[6];
        Form9->QRDBText8->DataField=log[7];
        break;
}
select+=" FROM ["+log[8]+"]";
select+=where;
select+=");";
if (Form1->slot==1)
{
DataModule4->ADOQuery1->Close();
DataModule4->ADOQuery1->SQL->Clear();
DataModule4->ADOQuery1->SQL->Add(select);
DataModule4->ADOQuery1->Open();
}
else
{
DataModule4->ADOQuery2->Close();
DataModule4->ADOQuery2->SQL->Clear();
DataModule4->ADOQuery2->SQL->Add(select);
DataModule4->ADOQuery2->Open();
}
Form9->QuickRep1->Preview();
Вторая часть.Даже форум не дал полностью показать это чудо
0
Практикантроп
 Аватар для nick42
4841 / 2726 / 534
Регистрация: 23.09.2011
Сообщений: 5,798
07.05.2015, 21:56
Цитата Сообщение от bonaparte436 Посмотреть сообщение
Вторая часть.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

    String trf[9]={ "","___01___","___012__","__0123__","__01234_","_012345_","0123456_","01234567" } ;
    TQRLabel *mL;
    TQRDBText *mD;
    int jj,idx=0;
    if (kol < 2) { ShowMessage("Ââåäèòå ìèГ*èìóì 2 ïîëÿ"); return; }
    while(++idx < 9)  {
      jj = trf[kol-1][idx]&15;
      mL=dynamic_cast<TQRLabel*>(Form9->FindComponent("QRLabel"+IntToStr(idx)));
      if(mL) mL->Caption = jj<9 ? log[jj] : (String)"";
      mD=dynamic_cast<TQRDBText*>(Form9->FindComponent("QRDBText"+IntToStr(idx)));
      if(mD) mD->DataField = jj<9 ? log[jj] : (String)"";
      if(mD) mD->Visible = jj<9;
    }
   select=String().sprintf("SELECT FROM [%s] WHERE ();",log[8]);
   TADOQuery *AQ = (Form1->slot==1) ? DataModule4->ADOQuery1
                                    : DataModule4->ADOQuery2 ;
   AQ->Close();  AQ->SQL->Clear();
   AQ->SQL->Add(select);
   AQ->Open();
//   Form9->QuickRep1->Preview();
... (напугать думал?)
1
0 / 0 / 0
Регистрация: 08.04.2015
Сообщений: 17
07.05.2015, 22:20  [ТС]
nick42, а можно узнать, как это работает по детальней?

Добавлено через 12 минут
Цитата Сообщение от nick42 Посмотреть сообщение
TQRLabel *mL;
* * TQRDBText *mD;
Я в этих штуках не разбираюсь.Я очень очень начинающий пограмист.
0
Практикантроп
 Аватар для nick42
4841 / 2726 / 534
Регистрация: 23.09.2011
Сообщений: 5,798
07.05.2015, 22:41
Цитата Сообщение от bonaparte436 Посмотреть сообщение
Я очень очень начинающий пограмист
... главное, что не "погромщик".
Если я стану объяснять, то это мало того, что может оказаться неверным, так ещё меня ученые деятели обвинят в невежестве (причем совершенно справедливо).
Этот фрагмент - объявление экземпляра соотв. класса и назначение ему существующего объекта. Этакий "нарицательный" компонент, который в цикле может побывать в шкуре целой группы компонентов одного класса (именно для цикла и используется). Поскольку он не создается по шаблону ( new ), то и удалять его не нужно.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 07.05.2015, 22:41
Помогаю со студенческими работами здесь

Какими компонентами лучше пользоваться для работы с сокетами?
Какими компонентами лучше пользоваться для СТАБИЛЬНОЙ работы с сокетами? Причём нужны лучше неблокирующие сокеты

Народ кто сталкивался\пользовался компонентами для работы с базой postgres с пхп ?
в общем есть база постгрес. сначал все было хорошо. данные были простые и толком там не было никакой аналитики\бизнес-логики. но прогресс...

Оптимизировать вывод результата работы скрипта в файл
4 - Последний вопрос. Программа выводит результат работы в файл .txt, далее выполняю поиск по файлу и отсекаю не нужные данные. ...

Оптимизировать код
Всем привет, дайте совет, быть может можно как то оптимизироват? Суть того что $slugCheck содержит короткий путь страницы. Если вдруго...

Оптимизировать код
Найдите ошибку если не сложно. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%
 Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru