C++ Builder

  • Published on
    24-Oct-2015

  • View
    462

  • Download
    0

Embed Size (px)

DESCRIPTION

C++ Builder in Exemple

Transcript

<ul><li><p>C + + B u i l d e r </p><p>-</p><p>-</p><p>2005</p></li><li><p> 681.3.068+800.92++ 32.973.26-018.1</p><p>90 . .</p><p>90 C++ Builder ., 2005. 336 : .</p><p>ISBN 5-94157-631-5</p><p>- .: -</p><p> -</p><p> C++ Builder. - -</p><p> , -</p><p> C++ Builder. - -</p><p>. - </p><p>.</p><p> 681.3.068+800.92++ 32.973.26-018.1</p><p> :</p><p>. </p><p>. </p><p>. </p><p> 02429 24.07.00. 24.08.05. 60x90 Vie. . . . . 21.</p><p> 5000 . 1241"-", 194354, -, . , 5.- </p><p> 77.99.02.953..006421.11.04 11.11.2004 . .</p><p> " ""</p><p>199034, -, 9 , 12</p><p>I S B N 5-94157-631-5 . ., 200S , "-", 2005</p></li><li><p> 1</p><p> 1. 3</p><p> 5 5 6- 10 12 16 18 21 25 28 33 36-2 43 48 51 -2 54 Internet Explorer 57 58</p><p> 62 62 65 70 ...-. 75</p></li><li><p>IV_ </p><p> 81 81..... 81 84 87 90 93 100 104- 109 114 118 121</p><p> 124 124WAV 124 Player 128 MIDI '. 138Compact Disk Player ( 1) 142Compact Disk Player ( 2) 148Video Player 150 158</p><p> 161 161 162 166 172</p><p> 180 180 15 192 " " (Puzzle) 198 " " 207 218-2 232</p></li><li><p> V</p><p> 241 246 255 ..259</p><p> 265 265 ...., 266 . 266 267 267 268 268 269 269 : 269 270 270 271 271 272 272 ( ) 272 273 "" 273</p><p> 2. BORLAND C++ BUILDER - 275</p><p> 277 278</p><p>Label 279Edit 280Button . 281Memo 283RadioButton 284CheckBox 285ListBox 286</p></li><li><p>VI </p><p>ComboBox 287StringGrid 288Image 290Timer 291SpeedButton :..., .292UpDown 294ProgressBar 295StatusBar 296Animate 297MediaPlayer..... 298Table 299Query .....300DataSource..... ......301DBEdit, DBMemo, DBText 301DBGrid 302DBNavigator 304</p><p> 306Canvas 306Pen. 309Brush 310</p><p> , 310 ...., 310 311 312 313</p><p> 315 315</p><p>. CD-ROM 317</p><p> 324</p></li><li><p> .</p><p> . -</p><p> , , , -</p><p> , , .</p><p> , -</p><p> , </p><p> " ". -</p><p> RAD- (Rapid Application Development ) , </p><p> , </p><p> , </p><p> . -</p><p> RAD- ! RAD- BorlandC++Builder, : -</p><p> . -</p><p> Borland C++Builder C++. , -</p><p> , . -</p><p> . -</p><p> , </p><p> .</p><p> , , </p><p>, -</p><p>, , ,</p></li><li><p> , , -</p><p>. , -</p><p> -</p><p>.</p><p> .</p><p> , -</p><p> , </p><p>.</p><p> , -</p><p> -</p><p> .</p><p> , </p><p>. , , </p><p> . -</p><p> , </p><p>. , , </p><p>. -</p><p> .</p><p> - , -</p><p>, C++Builder , -, . . C++Builder. .:-, 2004. ,, -</p><p> , : , , Mi-crosoft Help Workshop, , , - installShield Express, ( - ).</p></li><li><p> 1</p></li><li><p> , -</p><p>.</p><p> C++Builder : (), . - ( , - Windows) - .</p><p> ,</p><p> () . </p><p>. :</p><p> Label ; Edit ; Button ; checkBox ; RadioButton ; ListBox ; comboBox .</p><p> , -</p><p> () ( </p><p> ).</p></li><li><p> 1. </p><p> -</p><p> ( ).</p><p> ( Edit), (- ListBox) (comboBox). - CheckBox RadoiButton.</p><p> -</p><p> ( Label) (ShowMessage, MessageDlg).</p><p> , , </p><p>, </p><p>strTomt, strToFioat. - , , , </p><p> intTostr, F l o a t T o S t r F l o a t T o S t r F .</p><p> .</p><p> TextBox L a b e l . -</p><p> , -</p><p> (). - . 1.1.</p><p>\ ' ' " j f l l</p><p>Label4 </p><p>Buttoni</p><p> , </p><p> ":1~. (/$&gt;</p><p> '</p><p>- Editi</p><p>- Edit2</p><p>-Button2</p><p>. 1 . 1 . </p></li><li><p>// void fastcall TForml::EditlKeyPress(TObject *Sender, char&amp;Key){</p><p>// , // </p><p>// Key - // , if ((Key &gt;= '0') &amp;&amp; (Key Text).Pos(DecimalSeparator) != 0)Key = 0; // </p><p>return;</p><p>if (Key == VK_BACK) // return;</p><p>if (Key == VK_RETURN) // {</p><p>Edit2-&gt;SetFocus();return;</p><p>// Key = 0 ; // </p></li><li><p>8 1. </p><p>// void fastcall TForml::Edit2KeyPress(TObject *Sender,</p><p>char &amp;Key){</p><p>if ((Key &gt;= '0') &amp;&amp; (Key Text).Pos(DecimalSeparator) != 0)</p><p>Key = 0 ; // return;</p><p>if (Key == VK_BACK) // return;</p><p>if (Key == VK_RETURN) // I</p><p>Buttonl-&gt;SetFocus();// // // return;</p><p>// Key = 0 ; // </p><p>// void fastcall TForml::ButtonlClick(TObject *Sender)</p><p>float usd; // </p></li><li><p>float ; // float rub; // </p><p>// , if (((Editl-&gt;Text).Length() ==0) ||</p><p>((Edit2-&gt;Text).Length)) == 0)){</p><p>MessageDlgC'Haflo ",</p><p>mtlnformation, TMsgDlgButtons() mbOK, 0);if ((Editl-&gt;Text).Length!) == 0)</p><p>Editl-&gt;SetFocus(); // else</p><p>Edit2-&gt;SetFocus(); // return;</p><p>// usd = StrToFloat(Editl-&gt;Text);k = StrToFloat(Edit2-&gt;Text);</p><p>// rub = usd * k;</p><p>// Label4-&gt;Caption = FloatToStrF(usd,ffGeneral,7,2) +</p><p>"$ = "+FloatToStrF(rub,ffGeneral,7,2) + " ."</p><p>// void fastcall TForml::Button2Click(TObject *Sender){</p><p>Forml-&gt;Close(); // </p></li><li><p>10 1. </p><p>-</p><p> -, </p><p>. 1.2, . , </p><p> , </p><p>.</p><p>Editl -</p><p>Label2</p><p> . </p><p>I - Buttoni</p><p>. 1.2. , </p><p>f a s t c a l l T F o r m l : : T F o r m l ( T C o m p o n e n t * Owner) : TForm(Owner){</p><p>/* Editl ( ), */Buttonl-&gt;Enabled = False;</p><p>// Editlvoid fastcall TForml::EditlKeyPress(TObject *Sender, char&amp;Key){</p><p>/ / , // </p><p>// Key - // , if ( (Key &gt;= '0') &amp;&amp; (Key </p></li><li><p> 11_</p><p>// DecimalSeparator// , // if (Key == DecimalSeparator){</p><p>if ((Editl-&gt;Text).Pos(DecimalSeparator) ! = 0)Key = 0 ; // </p><p>return;</p><p>if (Key == VK_BACK) // return;</p><p>if (Key == VK_RETURN) // {</p><p>Buttonl-&gt;SetFocus();return;</p><p>// Key = 0 ; // </p><p>// Editl void fastcall TForml::EditlChange(TObject *Sender){</p><p>// , Editl if ( (Editl-&gt;Text).Length() == 0)</p><p>Buttonl-&gt;Enabled = False; // . else Buttonl-&gt;Enabled = True; // . </p><p>Label2-&gt;Caption = "";</p></li><li><p>12 1. </p><p>// void fastcall TForml::ButtonlClick(TObject *Sender){</p><p>double funt; // double kg; // </p><p>// ,// Editl . ,// .funt = StrToFloat(Editl-&gt;Text);kg = funt * 0.4995;</p><p>Label2-&gt;Caption = FloatToStrF(funt,ffGeneral,5,2) +" . - " +</p><p>FloatToStrF(kg,ffGeneral,5,2) + " ";</p><p> -</p><p> TextBox Label, " ". . 1.3.</p><p> ()-</p><p> ()-</p><p>LabeU -</p><p>Buttoni -. I; : : : *</p><p> EdiH</p><p>- Edit2</p><p>- Button2</p><p>. 1.3. .</p><p>/ / void f a s t c a l l T F o r m l : : B u t t o n l C l i c k ( T O b j e c t *Sender)</p></li><li><p> / 3</p><p>float u; // float r; // float i; // </p><p>// , // if ( ((Editl-&gt;Text).Length() ==0) ||</p><p>((Edit2-&gt;Text).Length() == 0)){</p><p>MessageDlg(" ",mtlnformation, TMsgDlgButtons() Text).Length() == 0)Editl-&gt;SetFocus(); // </p><p>elseEdit2-&gt;SetFocus; // </p><p>return;</p><p>// u = StrToFloat(Editl-&gt;Text); = StrToFloat(Edit2-&gt;Text);</p><p>// try</p><p>{i = u/r;</p><p>}catch (EZeroDivide &amp;e){</p><p>ShowMessage(" "" ");</p><p>Edit2-&gt;SetFocus(); // return;</p></li><li><p>14 1. </p><p>// LabelsLabel4-&gt;Caption - " : " +</p><p>FloatToStrF(i,ffGeneral,7,2) + " A";</p><p>// // , // void fastcall TForml::EditlKeyPress(TObject *Sender,</p><p>char &amp;Key){</p><p>// Key - // , </p><p>if ( ( Key &gt;= '0') &amp;&amp; ( Key Text).Pos(DecimalSeparator) != 0 )Key = 0 ; // </p><p>return;</p><p>if (Key == VK_BACK) // return;</p><p>if ( Key == VK_RETURN) // </p><p>Edit2-&gt;SetFocus();return;</p></li><li><p> 75</p><p>// Key = 0; // </p><p>// void fastcall TForml::Edit2KeyDown(TObject *Sender,</p><p>WORD &amp;Key,TShiftState Shift){</p><p>if ( ( Key &gt;= '0') &amp;&amp; ( Key Text).Pos(DecimalSeparator) != 0 )</p><p>Key = 0; // return;</p><p>if (Key == VK_BACK) // return;</p><p>if ( Key == VK_RETURN) // I</p><p>Buttonl-&gt;SetFocus(); // // // // . ButtonlClick</p><p>return;</p><p>// Key = 0 ; // </p><p>// void fastcall TForml::Button2Click(TObject 'Sender)</p></li><li><p>16 1. </p><p>Forml-&gt;Close(); // </p><p>/* EditlChange Change Editl, Edit2.- Change Editl, - Change Edit2 EditlChange. */</p><p>void fastcall TForml::EditChange(TObject *Sender){</p><p>Label4-&gt;Caption = "";</p><p> , . 1.4, - , -</p><p>, -</p><p>. RadioButton.</p><p>RadioButtoni</p><p>RadioButton2</p><p> , </p><p>I </p><p>j ^ </p><p>Label4</p><p>. 1.4. </p></li><li><p> 17_</p><p>// void fastcall TForml::ButtonlClick(TObject *Sender){</p><p>float rl,r2,r;</p><p>rl = StrToFloat(Editl-&gt;Text);r2 = StrToFloat(Edit2-&gt;Text);</p><p>/* RadioButtonl RadioButton2, </p><p> */ ( RadioButtonl-&gt;Checked ){</p><p>// "" = rl + 2;</p><p>ela*</p><p>/ / ""// / / EInvalidOpt r y</p><p>{ = ( r l * r2) / ( r l + r 2 ) ;</p><p>}catch ( EInvalidOp &amp;e){</p><p>ShowMessage(" """);</p><p>return;</p><p>Label4-&gt;Caption = FloatToStrF(r, ffGeneral, 6,2) + " ";</p><p>}</p></li><li><p>18 1. </p><p>II ""</p><p>void fastcall TForml::RadioButtonlClick(TObject *Sender){</p><p>Label4-&gt;Caption = "";</p><p>// ""void fastcall TForml::RadioButton2Click(TObject *Sender){</p><p>Label4-&gt;Caption = "";</p><p> , . 1.5, - checkBox.</p><p>Label! :Che:kBox1 CheckBox2 CheckBox3 CheckBox4</p><p>Buttoni</p><p>-</p><p>-</p><p> I::</p><p>. 1.5. </p><p>float surnm; // </p><p>// fastcall TForml::TForml(TComponent* Owner)</p><p>: TForm(Owner)</p></li><li><p> f</p><p>// ""CheckBox2-&gt;Enabled = false;</p><p>// "-"void fastcall TFoml: :CheckBoxlClick(TObject *Sender){</p><p>if ( CheckBoxl-&gt;Checked ){</p><p>/* , */</p><p>summ += 54;</p><p>// ""CheckBox2-&gt;Enabled = true;</p><p>}else</p><p>{/* ,</p><p> */</p><p>summ -= 54;</p><p>// ""if (CheckBox2-&gt;Checked)</p><p>CheckBox2-&gt;Checked = false;CheckBox2-&gt;Enabled = false;</p><p>// Labell-&gt;Caption = FloatToStrF(summ,ffCurrency,6,2);</p></li><li><p>20 1. </p><p>// ""void faetcall TForml::CheckBox2Click(TObject *Sender)</p><p>if ( CheckBox2-&gt;Checked)summ +=10.5;</p><p>la*</p><p>summ -= 10.5;</p><p>Labell-&gt;Caption = FloatToStrFtsumm,ffCurrency,6,2);</p><p>// ""void faetcall TForml::CheckBox3Click(TObject *Sender)</p><p>if ( CheckBox3-&gt;Checked)summ += 18.5;</p><p>la*</p><p>summ -= 18.5;</p><p>Labell-&gt;Caption = FloatToStrF(summ,ffCurrency,6,2);</p><p>// "-"void faetcall TForml::CheckBox4Click(TObject *Sender){</p><p>if ( CheckBox4-&gt;Checked)sum += 14;</p><p>summ -= 14;</p><p>Labell-&gt;Caption = FloatToStrF(summ,ffCurrency,6,2)</p><p>// OK</p></li><li><p> 21_</p><p>void fastcall TForml::ButtonlClick(TObject *Sender){</p><p>if ( (CheckBoxl-&gt;Checked)&amp;&amp; (CheckBox2-&gt;Checked)&amp;&amp;(CheckBox3-&gt;Checked)&amp;&amp;(CheckBox4-&gt;Checked) )</p><p>/* 5% */</p><p>summ = summ * 0.95;</p><p>ShowMessage(" 5%.\"" : " + FloatToStrF(summ, ffCurrency, 6,2) +" .");</p><p>}else</p><p>if ( (CheckBoxl-&gt;Checked)||(CheckBox3-&gt;Checked)||(CheckBox4-&gt;Checked))ShowMessage(" : " +FloatToStrF(summ,ffGeneral,6,2)+ " .");</p><p>else ShowMessage(" ");</p><p> , . 1.6, .</p><p> ComboBox2 ( ). </p><p>comboBox2 , , -</p><p> .</p><p>. 1.1.</p></li><li><p>22 1. </p><p>riv </p><p>Labell- Label2: - LabeB </p><p>ComboBoxi ComboBox2 </p><p>. 1.6. </p><p> 1.1. </p><p>ComboBoxl . s t y l e csDropDownList ( )</p><p>ComboBox2.Style csDropDown</p><p>.Style csSimple</p><p> -</p><p> . -</p><p> -</p><p>/ / fastcall TForml::TForml(TComponent* Owner) TForm(Owner)</p><p>/ / ComboBox2-&gt;Sorted = t rue; / / ComboBox2-&gt;Items-&gt;Add("-");ComboBox2-&gt;Items-&gt;Add("Mepjttui,a") ;ComboBox2-&gt;Items-&gt;Add("-");ComboBox2-&gt;Items-&gt;Add("");ComboBox2-&gt;Items-&gt;Add("");</p></li><li><p> 23</p><p>// ComboBox2-&gt;Sorted = t rue; / / ComboBox3-&gt;Items-&gt;Add("4aii") ;ComboBox3-&gt;Items-&gt;Add("4aM ");ComboBox3~&gt;Items-&gt;Add("Ko(J&gt;e ") ;ComboBox3-&gt;Items-&gt;Add("Koe ");ComboBox3-&gt;Items-&gt;Add("KaKao");</p><p>// ComboBoxlvoid fastcall TForml::ComboBoxlClick(TObject *Sender){</p><p>Labell-&gt;Caption = CornboBoxl-&gt;Text;</p><p>// ComboBox2void fastcall TForml::ComboBox2Click(TObject *Sender){</p><p>Label2-&gt;Caption = ComboBox2-&gt;Items-&gt;Strings[ComboBox2-&gt;ItemIndex]</p><p>// void fastcall TForml::ComboBox3Click(TObject *Sender){</p><p>Label3-&gt;Caption = -&gt;Iterns-&gt;Strings[ComboBox3-&gt;ItemIndex]</p><p>// ComboBox2void fastcall TForml::ComboBox2KeyPress(TObject *Sender,char &amp;Key){</p><p>if (Key == VK_RETURN)</p></li><li><p>24 1. </p><p>/ -// . .int n = ComboBox2-&gt;ltems-&gt;Add(ComboBox2-&gt;Text);ComboBox2-&gt;ItemIndex = n;Label2-&gt;Caption = ComboBox2-&gt;Items-&gt;Strings[n];</p><p>// void fastcall TForml::ComboBox3KeyPress(TObject *Sender,</p><p>char &amp;Key)</p><p>AnsiString st; // , // // ComboBox</p><p>if (Key == VK_RETURN)</p><p>// // . ,// </p><p>st = ComboBox3-&gt;Text.Trim(); // </p><p>if ( ComboBox3-&gt;Items-&gt;lndex0f(st) == -1 )</p><p>// int n = ComboBox3-&gt;Items-&gt;Add(st);ComboBox3-&gt;ItemIndex = n;</p><p>Label3-&gt;Caption = ComboBox3-&gt;Items-&gt;Strings[n]</p></li><li><p> 25</p><p> (. 1.7) , , </p><p>.</p><p>' -</p><p>1 0 5 2'</p><p>7</p><p>I 3 1 2 7 4 ' 2</p><p> (./) I 0 ' 9 6</p><p> : 212,64.</p><p>[/HTbj</p><p>. 1.7. </p><p>// fastcall TForml::TForml(TComponent* Owner)</p><p>: TForm(Owner){</p><p>/ * , KeyPress Edit2 Edit3 EditKeyPress */</p><p>Edit2-&gt;0nKeyPress = Edi tKeyPress ;Edit3-&gt;0nKeyPress = Edi tKeyPress ;</p><p>/ * KeyPress , ,</p><p> Tag Edit */</p><p>E d i t l - &gt; T a g = 1;Edit2-&gt;Tag = 2;</p></li><li><p>26 1. </p><p>Edit3-&gt;Tag = 3;</p><p>// void fastcall TForml::EditKeyPress(TObjt *Sender,</p><p>char &amp;Key)</p><p>TEdit * Edit; // Edit</p><p>Edit = (TEdit*)Sender;/* ed - Edit, </p><p> */</p><p>/* , . */</p><p>if ( Key == VK_RETURN) // </p><p>switch (Edit-&gt;Tag) {case 1 : /* Editl</p><p> Edit3 */Edit2-&gt;SetFocus() ; break;</p><p>case 2 : /* Edit2 Edit3 */</p><p>Edit3-&gt;SetFocus() ; break;</p><p>case 3 /* Edit3 */</p><p>Buttonl-&gt;SetFocus ; break;}return;</p><p>if ( (( Key &gt;= '0') &amp;&amp; ( Key </p></li><li><p> 2 7</p><p>// Backspace&gt;return;</p><p>if ((Key == ',') || (Key == '.')){</p><p>Key = DeciinalSeparator;if ( (Edit-&gt;Text).Pos(DecimalSeparator) != 0</p><p>Key = 0;return;</p><p>i f ( K e y == VK_BACK )r e t u r n ;</p><p>/ / Key = 0;</p><p>// void fastcall TForml::ButtonlClick(TObject *Sender){</p><p>float prior, curr; // // </p><p>float tariff; // - 1 /</p><p>float summ; // </p><p>prior = StrToFloat(Editl-&gt;Text);curr = StrToFloat(Edit2-&gt;Text);tariff = StrToFloat(Edit3-&gt;Text);</p><p>// if ( curr &lt; prior)</p><p>2 3. 1241</p></li><li><p>28 1. </p><p>MessageDlg(" "" .",</p><p>mtWarning, TMsgDlgButtons() mbOK,0);return;</p><p>}summ = (curr - prior) * tariff;Label4-&gt;Caption = " : " +</p><p>FloatToStrF(summ, ffCurrency, 6,2);</p><p> (. 1.8), - (. 1.9), - . -</p><p> , </p><p> . -</p><p> , </p><p>, , .</p><p>J U J &lt; J</p><p>( (.): Jl980 : [-</p><p> ; [ : |0 : 22 . 2 j j</p><p> , </p><p> (.): [ 70 95 _^J</p><p> [ 9 </p><p>OK</p><p>. 1.8. </p></li><li><p> 29</p><p> : 1 980,00.. : 1,8. : 0,95. : 1. - , : 1. : 1. : 1</p><p>: 3385,80.</p><p>. 1.9. </p><p>AnsiString reg[8] = {""," .","-",</p><p>" ",</p><p>" .",</p><p>"-", "",</p><p>""};</p><p>// ., float Kt [8] = {1.8,1.6, 1.8,1.3,1,1,1,1};</p><p>// fastcall TForml::TForml(TComponent* Owner)</p><p>: TForm(Owner)</p><p>int i, n;n = sizeof (Kt) / sizeof (float);for (i=0; iItems-&gt;Add(reg[i]);</p><p>/* Change TForml::Change */</p><p>ComboBoxl-&gt;OnChange = Change;ComboBox2-&gt;OnChange = Change;-</p></li><li><p>30 1. </p><p>ComboBox4-&gt;0nChange = Change;</p><p>ComboBox4-&gt;OnChange = Change;</p><p>Editl-&gt;OnChange = Change;</p><p>Edit2-&gt;0nChange = Change;</p><p>Edit3-&gt;0nChange = Change;</p><p>/* - 3- , ( ) 4- ..). , : - </p><p>, - - . */</p><p>// i n t Cb[6][5] = {{1,-1,-1,-1,-1},</p><p>{2 ,-1 ,-1 ,-1 ,-1} ,{3 ,1 ,-1 ,-1 ,-1} ,{4 ,1 ,-1 ,-1 ,-1} ,{5 ,2 ,1 ,-1 ,-1} ,{6,3,1,-1,-1}} ;</p><p>// float Kb[7] = {2.3, 1.55, 1.4, 1, 0.95, 0.9};</p><p>// void fastcall TForml::ButtonlClick(TObject *Sender)</p><p>float aTb; // float aKt; // . float aKb; // . float aKvs; // . float aKo; // ., ,</p><p>// </p></li><li><p> 31_</p><p>float ; // . float aKs; // ., </p><p>int pcb,ccb; // int nss; // </p><p>// </p><p> = StrToFloat (Edit3-&gt;Text) ;aKt = Kt[ComboBoxl-&gt;Itemlndex];</p><p>pcb = StrToInt(Editl-&gt;Text);nss = StrToInt(Edit2-&gt;Text);ccb = Cb[pcb][nss];if ( ccb != -1)</p><p>aKb = Kb[ccb];else aKb = 2.45;aKb = Kb[ccb];</p><p>// . switch (ComboBox2-&gt;ItemIndex){</p><p>case 0: aKvs = 1.3; break;case 1: aKvs = 1.2; break;case 2: aKvs = 1.15; break;case 3: aKvs = 1.0; break;</p><p>// ., , // if (CheckBoxl-&gt;Checked)</p><p> = 1;</p><p>else</p><p> 1.5;</p></li><li><p>32</p><p>// . switch (ComboBox3-&gt;ItemIndex)</p><p>Icasecase</p><p>case</p><p>case</p><p>case</p><p>case</p><p>case</p><p>// .</p><p>01</p><p>2</p><p>34</p><p>5</p><p>6</p><p>aKm =</p><p>aKm =</p><p>aKm =</p><p>aKm =</p><p>aKm =</p><p>aKm =</p><p>aKm =</p><p> 0.5;</p><p>: 0.7;</p><p>: 1.0;: 1.3;</p><p>= 1.5;</p><p>= 1.7;</p><p>= 1.9;</p><p>, </p><p>breakbreakbreakbreakbreakbreakbreak</p><p>;</p><p>;</p><p>;</p><p>;</p><p>;</p><p>'</p><p>.</p><p> 1.</p><p>switch (ComboBox4-&gt;ItemIndex){</p><p>case 0 : aKs = 0.7; break;case 1 : aKs = 0.8; break;case 2 : aKs = 0.9; break;case 3 : aKs = 0.95; break;case 4 : aKs = 1.0; break;</p><p>// </p><p>float T; // AnsiString st;</p><p>T = * aKt * aKb * aKvs * * aKm *aKs;</p><p>st = " : " +</p><p>FloatToStrF(aTb,ffCurrency,5,2)+". : " + FloatToStrF(aKt,ffGeneral,2,2)+". : " +</p></li><li><p> 3J3</p><p>FloatToStrF(aKb,ffGeneral,2,2)+". : " +</p><p>FloatToStrF(aKvs,ffGeneral,2,2)+"\.. - , : " +FloatToStrF(aKo,ffGeneral,2,2)+"\. : " +FloatToStrF(aKm,ffGeneral,2,2)+". : " +</p><p>FloatToStrF(aKs,ffGeneral,2,2)+"\\: " + FloatToStrF(T,ffCurrency,5,2);</p><p>ShowMessage(st) ;</p><p>// - </p><p>void fastcall TForml::Change(TObjt *Sender){</p><p>Buttonl-&gt;Enabled =(ComboBoxl-&gt;ItemIndex != -1) &amp;&amp;(ComboBox2-&gt;ItemIndex != -1) &amp;&amp;(ComboBox3-&gt;ItemIndex != -1) &amp;&amp;(ComboBox4-&gt;ItemIndex != -1) &amp;&amp;(Editl-&gt;Text.LengthText.Length() != 0) &amp;&amp;(Edit3-&gt;Text.Length() != 0);</p><p> (. 1.10) ListBox openDiaiog. () , </p><p> . </p><p>OpenDiaiog.</p></li><li><p>34 1. </p><p>PICT0208JPGPICT0209.JPGPICT0210.JPGPICT0211.PGPICT0212.JPGPICT0213.PGP...</p></li></ul>