Ускорение загрузки Exe-файла

Katrin1977 · 04.02.2012, 00:50

Здравствуйте.

Меня вот интересует такой вопрос, как ускорить загрузку Экзешника.
Как, я понимаю, мою программу грузить то, что в StringGrid загружаются текстовые файлы.
Но без загрузки файлов никак.
Кто подскажет, как оптимизировать программу?

Спасибо большее всем, кто ответить.

nick42 · 04.02.2012, 02:10

- а как? шаманить? Вы ж код не показываете; вдруг у вас там в циклах лишку наворочено, отсюда и тормоза... .

LK · 04.02.2012, 02:18

Katrin1977, вы зря не обратили внимания на это

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

вас в вашем вопросе ничто не смущает ?

- "оптимизировать" код на основании общего описание чего-то, не имея перед глазами конкретного кода, который необходимо оптимизировать, как минимум, глупая затея.

Katrin1977 · 04.02.2012, 02:21 **[ТС]**

Ну код вот он:

Код C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <ComObj.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
 
Variant var_Excel, var_Sheet;
 int Row_Counter = 0, Column_Counter = 0, Max_Column = 2, Max_Row = 52, ColCount=15, RowCount=4418;
 double z1=0,z2=0,z3=0,z4=0,z5=0,g1=0;
 //z6=0,z7=0,z8=0,z9=0,z10=0,z11=0,z12=0,z13=0,z14=0,z15=0,z16=0,z17=0,z18=0,z19=0;
 //,z20,z1,z22,z23,z24,z25,z26;
 double kol,cena;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
 //Nummer
 AnsiString path0 = ExtractFilePath(Application->ExeName)+"1st.txt";
 StringGrid1->Cols[0]->LoadFromFile(path0);
 
 //Aufhellung
 AnsiString path1 = ExtractFilePath(Application->ExeName)+"2st.txt";
 StringGrid1->Cols[1]->LoadFromFile(path1);
 
 //Material Rezeptur
 StringGrid1->ColWidths[2]=100;
 AnsiString path2 = ExtractFilePath(Application->ExeName)+"3st.txt";
 StringGrid1->Cols[2]->LoadFromFile(path2);
 
 //Material m?glich
 StringGrid1->ColWidths[3]=150;
 AnsiString path3 = ExtractFilePath(Application->ExeName)+"4st.txt";
 StringGrid1->Cols[3]->LoadFromFile(path3);
 
 //GM
 AnsiString path4 = ExtractFilePath(Application->ExeName)+"5st.txt";
 StringGrid1->Cols[4]->LoadFromFile(path4);
 
 //kg GM
 AnsiString path5 = ExtractFilePath(Application->ExeName)+"6st.txt";
 StringGrid1->Cols[5]->LoadFromFile(path5);
 
 //Pigment1
 AnsiString path6 = ExtractFilePath(Application->ExeName)+"7st.txt";
 StringGrid1->Cols[6]->LoadFromFile(path6);
 
 //kg/kg
 AnsiString path7 = ExtractFilePath(Application->ExeName)+"8st.txt";
 StringGrid1->Cols[7]->LoadFromFile(path7);
 
 //Pigment2
 AnsiString path8 = ExtractFilePath(Application->ExeName)+"9st.txt";
 StringGrid1->Cols[8]->LoadFromFile(path8);
 
 //kg/kg
 AnsiString path9 = ExtractFilePath(Application->ExeName)+"10st.txt";
 StringGrid1->Cols[9]->LoadFromFile(path9);
 
 //Pigment3
 AnsiString path10 = ExtractFilePath(Application->ExeName)+"11st.txt";
 StringGrid1->Cols[10]->LoadFromFile(path10);
 
 //kg/kg
 AnsiString path11 = ExtractFilePath(Application->ExeName)+"12st.txt";
 StringGrid1->Cols[11]->LoadFromFile(path11);
 
 //Pigment4
 AnsiString path12 = ExtractFilePath(Application->ExeName)+"13st.txt";
 StringGrid1->Cols[12]->LoadFromFile(path12);
 
 //kg/kg
 AnsiString path13 = ExtractFilePath(Application->ExeName)+"14st.txt";
 StringGrid1->Cols[13]->LoadFromFile(path13);
 
 //Preis Pigment/kg
 AnsiString path14 = ExtractFilePath(Application->ExeName)+"15st.txt";
 StringGrid1->Cols[14]->LoadFromFile(path14);
 
 //Zagryzka iz Excel
 StringGrid2->ColWidths[0]=200;
 //AnsiString path15 = ExtractFilePath(Application->ExeName)+"baymit.xls";
 var_Excel=CreateOleObject("Excel.Application");
 var_Excel.OlePropertyGet("Application").OlePropertyGet("Workbooks").OleProcedure("Open" , "\\baymit.xls"  );   var_Excel.OlePropertySet("Visible",false);
 var_Sheet = var_Excel.OlePropertyGet("ActiveSheet");
 
for (Row_Counter ; Row_Counter <= Max_Row ; Row_Counter++)
    {
      for (Column_Counter ; Column_Counter <= Max_Column  ; Column_Counter++)
          {
 
           StringGrid2->Cells[Column_Counter][Row_Counter] =
               var_Sheet.OlePropertyGet("Cells").OlePropertyGet("Item", Row_Counter + 1 , Column_Counter + 1);
          }
          Column_Counter = 0;
    }
var_Excel.OlePropertyGet("Application").OleProcedure("Quit");
var_Sheet = Unassigned;
var_Excel = Unassigned;
 
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit5->Text="";
Edit8->Text="";
Edit1->Text="";
 
Edit2->Text="";
Edit7->Text="";
Edit6->Text="";
 
Edit10->Text="";
 
Edit12->Text="";
Edit4->Text="";
Edit13->Text="";
Edit14->Text="";
 
Edit16->Text="";
Edit17->Text="";
Edit18->Text="";
Edit19->Text="";
RadioButton3->Checked=false;
RadioButton4->Checked=false;
RadioButton5->Checked=false;
RadioButton6->Checked=false;
RadioButton7->Checked=false;
RadioButton8->Checked=false;
RadioButton9->Checked=false;
RadioButton10->Checked=false;
RadioButton11->Checked=false;
RadioButton12->Checked=false;
RadioButton13->Checked=false;
RadioButton14->Checked=false;
RadioButton15->Checked=false;
RadioButton16->Checked=false;
RadioButton17->Checked=false;
RadioButton18->Checked=false;
RadioButton19->Checked=false;
Panel1->Visible=false;
Panel4->Visible=false;
Panel5->Visible=false;
 
z1=0;z2=0;z3=0;z4=0;z5=0;
g1=0;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button14Click(TObject *Sender)
{
double kol,cena;
kol=StrToFloat(Edit6->Text);
z1=0;z2=0;z3=0;z4=0;z5=0;
 
if(RadioButton15->Checked==true)
{
if (RadioButton3->Checked==true)
z1=StrToFloat(StringGrid2->Cells[1][26]);
if (RadioButton4->Checked==true)
z2=StrToFloat(StringGrid2->Cells[1][27]);
if (RadioButton5->Checked==true)
z3=StrToFloat(StringGrid2->Cells[1][28]);
if (RadioButton6->Checked==true)
z4=StrToFloat(StringGrid2->Cells[1][29]);
if (RadioButton7->Checked==true)
z5=StrToFloat(StringGrid2->Cells[1][30]);
}
 
 
if(RadioButton16->Checked==true)
{
if (RadioButton3->Checked==true)
z2=StrToFloat(StringGrid2->Cells[1][31]);
if (RadioButton4->Checked==true)
z3=StrToFloat(StringGrid2->Cells[1][33]);
if (RadioButton5->Checked==true)
z4=StrToFloat(StringGrid2->Cells[1][34]);
}
 
 
if(RadioButton17->Checked==true)
{
if (RadioButton3->Checked==true)
z1=StrToFloat(StringGrid2->Cells[1][35]);
if (RadioButton4->Checked==true)
z2=StrToFloat(StringGrid2->Cells[1][36]);
if (RadioButton5->Checked==true)
z3=StrToFloat(StringGrid2->Cells[1][37]);
if (RadioButton6->Checked==true)
z4=StrToFloat(StringGrid2->Cells[1][38]);
if (RadioButton7->Checked==true)
z5=StrToFloat(StringGrid2->Cells[1][39]);
}
 
 
if(RadioButton18->Checked==true)
{
if (RadioButton3->Checked==true)
z1=StrToFloat(StringGrid2->Cells[1][40]);
if (RadioButton4->Checked==true)
z2=StrToFloat(StringGrid2->Cells[1][41]);
if (RadioButton5->Checked==true)
z3=StrToFloat(StringGrid2->Cells[1][42]);
if (RadioButton6->Checked==true)
z4=StrToFloat(StringGrid2->Cells[1][43]);
if (RadioButton7->Checked==true)
z5=StrToFloat(StringGrid2->Cells[1][44]);
}
 
 
if(RadioButton19->Checked==true)
{
if (RadioButton3->Checked==true)
z2=StrToFloat(StringGrid2->Cells[1][49]);
if (RadioButton4->Checked==true)
z3=StrToFloat(StringGrid2->Cells[1][50]);
if (RadioButton5->Checked==true)
z4=StrToFloat(StringGrid2->Cells[1][51]);
}
 
if(Edit2->Text=="0015")
{
if (RadioButton8->Checked==true)
{
if(RadioButton10->Checked==true)
g1=StrToFloat(StringGrid2->Cells[1][15]);
if(RadioButton12->Checked==true)
g1=StrToFloat(StringGrid2->Cells[1][20]);
if(RadioButton13->Checked==true)
g1=StrToFloat(StringGrid2->Cells[1][22]);
}
}
 
 
 
cena=kol*(StrToFloat(Edit16->Text)*StrToFloat(Edit8->Text)+StrToFloat(Edit17->Text)*StrToFloat(Edit10->Text)+StrToFloat(Edit18->Text)*StrToFloat(Edit12->Text)+StrToFloat(Edit19->Text)*StrToFloat(Edit14->Text)+z1+z2+z3+z4+z5+g1);
Edit7->Text=FloatToStr(cena);
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::RadioButton8Click(TObject *Sender)
{
//Edit7->Text="";
//cena=0;
//z1=0;z2=0;z3=0;z4=0;z5=0;
Panel4->Visible=true;
Panel5->Visible=false;
Panel1->Visible=false;
//for(int j=0; j<=4417; j++)
//{
//if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
//{
//if(StringGrid1->Cells[3][j].Pos("Style")==false)
//{
//RadioButton14->Visible=false;
//}
//}
//}
RadioButton3->Checked=false;
RadioButton4->Checked=false;
RadioButton5->Checked=false;
RadioButton6->Checked=false;
RadioButton7->Checked=false;
RadioButton10->Checked=false;
RadioButton11->Checked=false;
RadioButton12->Checked=false;
RadioButton13->Checked=false;
RadioButton14->Checked=false;
RadioButton15->Checked=false;
RadioButton16->Checked=false;
RadioButton17->Checked=false;
RadioButton18->Checked=false;
RadioButton19->Checked=false;
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::RadioButton9Click(TObject *Sender)
{
//cena=0;
//Edit7->Text="";
//z1=0;z2=0;z3=0;z4=0;z5=0;
Panel4->Visible=false;
Panel5->Visible=true;
Panel1->Visible=false;
 
//for(int j=0; j<=4417; j++)
//{
//if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
//{
//if(StringGrid1->Cells[3][j].Pos("Style")==false)
//{
//RadioButton19->Visible=false;
//}
//}
//}
RadioButton3->Checked=false;
RadioButton4->Checked=false;
RadioButton5->Checked=false;
RadioButton6->Checked=false;
RadioButton7->Checked=false;
RadioButton10->Checked=false;
RadioButton11->Checked=false;
RadioButton12->Checked=false;
RadioButton13->Checked=false;
RadioButton14->Checked=false;
RadioButton15->Checked=false;
RadioButton16->Checked=false;
RadioButton17->Checked=false;
RadioButton18->Checked=false;
RadioButton19->Checked=false;
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton10Click(TObject *Sender)
{
z1=0;z2=0;z3=0;z4=0;z5=0;
AnsiString pigm1,pigm2,pigm3,pigm4;
  for(int j=0; j<=4417; j++)
               {
                      if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
                               {
                                if(StringGrid1->Cells[2][j].Pos("Color"))
                                        {
                                        if(StringGrid1->Cells[3][j].Pos("Granopor"))
                                                {
                                                Edit1->Text=StringGrid1->Cells[6][j];
                                                Edit4->Text=StringGrid1->Cells[8][j];
                                                Edit5->Text=StringGrid1->Cells[10][j];
                                                Edit13->Text=StringGrid1->Cells[12][j];
 
                                                pigm1=StringGrid1->Cells[6][j];
                                                pigm2=StringGrid1->Cells[8][j];
                                                pigm3=StringGrid1->Cells[10][j];
                                                pigm4=StringGrid1->Cells[12][j];
 
                                                Edit16->Text= StringGrid1->Cells[7][j];
                                                Edit17->Text= StringGrid1->Cells[9][j];
                                                Edit18->Text= StringGrid1->Cells[11][j];
                                                Edit19->Text= StringGrid1->Cells[13][j];
                                                 }
                                                        if(StringGrid1->Cells[4][j].Pos("GMWF"))
                                                        g1=StrToFloat(StringGrid2->Cells[1][16]);
                                                        else g1=StrToFloat(StringGrid2->Cells[1][15]);
                                        }
                                }
               }
 
                                                          for (int r=0; r<=51; r++)
                                                        {
                                                         if(StringGrid2->Cells[0][r].Pos(pigm1))
                                                                Edit8->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm2))
                                                                Edit10->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm3))
                                                                 Edit12->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm4))
                                                                 Edit14->Text=StringGrid2->Cells[1][r];
                                                         }
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton11Click(TObject *Sender)
{
z1=0;z2=0;z3=0;z4=0;z5=0;
AnsiString pigm1,pigm2,pigm3,pigm4;
  for(int j=0; j<=4417; j++)
               {
                      if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
                               {
                                if(StringGrid1->Cells[2][j].Pos("Color"))
                                        {
                                        if(StringGrid1->Cells[3][j].Pos("Nanopor"))
                                                {
                                                Edit1->Text=StringGrid1->Cells[6][j];
                                                Edit4->Text=StringGrid1->Cells[8][j];
                                                Edit5->Text=StringGrid1->Cells[10][j];
                                                Edit13->Text=StringGrid1->Cells[12][j];
 
                                                pigm1=StringGrid1->Cells[6][j];
                                                pigm2=StringGrid1->Cells[8][j];
                                                pigm3=StringGrid1->Cells[10][j];
                                                pigm4=StringGrid1->Cells[12][j];
 
                                                Edit16->Text= StringGrid1->Cells[7][j];
                                                Edit17->Text= StringGrid1->Cells[9][j];
                                                Edit18->Text= StringGrid1->Cells[11][j];
                                                Edit19->Text= StringGrid1->Cells[13][j];
                                                 }
                                                 if(StringGrid1->Cells[4][j].Pos("GMWF"))
                                                        g1=StrToFloat(StringGrid2->Cells[1][18]);
                                                        else
 
                                                        if(StringGrid1->Cells[4][j].Pos("GMFF"))
                                                        g1=StrToFloat(StringGrid2->Cells[1][19]);
                                                        else
                                                        g1=StrToFloat(StringGrid2->Cells[1][17]);
                                        }
                                }
               }
 
                                                          for (int r=0; r<=51; r++)
                                                        {
                                                         if(StringGrid2->Cells[0][r].Pos(pigm1))
                                                                Edit8->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm2))
                                                                Edit10->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm3))
                                                                 Edit12->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm4))
                                                                 Edit14->Text=StringGrid2->Cells[1][r];
                                                         }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton12Click(TObject *Sender)
{
z1=0;z2=0;z3=0;z4=0;z5=0;
AnsiString pigm1,pigm2,pigm3,pigm4;
  for(int j=0; j<=4417; j++)
               {
                      if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
                               {
                                if(StringGrid1->Cells[2][j].Pos("Color"))
                                        {
                                        if(StringGrid1->Cells[3][j].Pos("Silikon"))
                                        {
                                                Edit1->Text=StringGrid1->Cells[6][j];
                                                Edit4->Text=StringGrid1->Cells[8][j];
                                                Edit5->Text=StringGrid1->Cells[10][j];
                                                Edit13->Text=StringGrid1->Cells[12][j];
 
                                                pigm1=StringGrid1->Cells[6][j];
                                                pigm2=StringGrid1->Cells[8][j];
                                                pigm3=StringGrid1->Cells[10][j];
                                                pigm4=StringGrid1->Cells[12][j];
 
                                                Edit16->Text= StringGrid1->Cells[7][j];
                                                Edit17->Text= StringGrid1->Cells[9][j];
                                                Edit18->Text= StringGrid1->Cells[11][j];
                                                Edit19->Text= StringGrid1->Cells[13][j];
                                                 }
                                                 if(StringGrid1->Cells[4][j].Pos("GMWF"))
                                                        g1=StrToFloat(StringGrid2->Cells[1][21]);
                                                        else g1=StrToFloat(StringGrid2->Cells[1][20]);
                                        }
                                }
               }
 
                                                          for (int r=0; r<=51; r++)
                                                        {
                                                         if(StringGrid2->Cells[0][r].Pos(pigm1))
                                                                Edit8->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm2))
                                                                Edit10->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm3))
                                                                 Edit12->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm4))
                                                                 Edit14->Text=StringGrid2->Cells[1][r];
                                                         }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton13Click(TObject *Sender)
{
z1=0;z2=0;z3=0;z4=0;z5=0;
AnsiString pigm1,pigm2,pigm3,pigm4;
for(int j=0; j<=4417; j++)
               {
                      if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
                               {
                                if(StringGrid1->Cells[2][j].Pos("Color"))
                                        {
                                        if(StringGrid1->Cells[3][j].Pos("Silikat"))
                                         {
                                                Edit1->Text=StringGrid1->Cells[6][j];
                                                Edit4->Text=StringGrid1->Cells[8][j];
                                                Edit5->Text=StringGrid1->Cells[10][j];
                                                Edit13->Text=StringGrid1->Cells[12][j];
 
                                                pigm1=StringGrid1->Cells[6][j];
                                                pigm2=StringGrid1->Cells[8][j];
                                                pigm3=StringGrid1->Cells[10][j];
                                                pigm4=StringGrid1->Cells[12][j];
 
                                                Edit16->Text= StringGrid1->Cells[7][j];
                                                Edit17->Text= StringGrid1->Cells[9][j];
                                                Edit18->Text= StringGrid1->Cells[11][j];
                                                Edit19->Text= StringGrid1->Cells[13][j];
                                                 }
                                                 if(StringGrid1->Cells[4][j].Pos("GMWF"))
                                                        g1=StrToFloat(StringGrid2->Cells[1][23]);
                                                        else g1=StrToFloat(StringGrid2->Cells[1][22]);
                                        }
                                }
               }
 
                                                          for (int r=0; r<=51; r++)
                                                        {
                                                         if(StringGrid2->Cells[0][r].Pos(pigm1))
                                                                Edit8->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm2))
                                                                Edit10->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm3))
                                                                 Edit12->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm4))
                                                                 Edit14->Text=StringGrid2->Cells[1][r];
                                                         }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton14Click(TObject *Sender)
{
z1=0;z2=0;z3=0;z4=0;z5=0;
AnsiString pigm1,pigm2,pigm3,pigm4;
for(int j=0; j<=4417; j++)
               {
                      if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
                               {
                                if(StringGrid1->Cells[2][j].Pos("Color"))
                                        {
                                        if(StringGrid1->Cells[3][j].Pos("Style"))
                                          {
                                                Edit1->Text=StringGrid1->Cells[6][j];
                                                Edit4->Text=StringGrid1->Cells[8][j];
                                                Edit5->Text=StringGrid1->Cells[10][j];
                                                Edit13->Text=StringGrid1->Cells[12][j];
 
                                                pigm1=StringGrid1->Cells[6][j];
                                                pigm2=StringGrid1->Cells[8][j];
                                                pigm3=StringGrid1->Cells[10][j];
                                                pigm4=StringGrid1->Cells[12][j];
 
                                                Edit16->Text= StringGrid1->Cells[7][j];
                                                Edit17->Text= StringGrid1->Cells[9][j];
                                                Edit18->Text= StringGrid1->Cells[11][j];
                                                Edit19->Text= StringGrid1->Cells[13][j];
                                                 }
                                                 g1=StrToFloat(StringGrid2->Cells[1][24]);
                                        }
                                }
               }
 
                                                          for (int r=0; r<=51; r++)
                                                        {
                                                         if(StringGrid2->Cells[0][r].Pos(pigm1))
                                                                Edit8->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm2))
                                                                Edit10->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm3))
                                                                 Edit12->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm4))
                                                                 Edit14->Text=StringGrid2->Cells[1][r];
                                                         }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton15Click(TObject *Sender)
{
z1=0;z2=0;z3=0;z4=0;z5=0;
g1=0;
AnsiString pigm1,pigm2,pigm3,pigm4;
Panel1->Visible=true;
RadioButton3->Visible=true;
RadioButton4->Visible=true;
RadioButton5->Visible=true;
RadioButton6->Visible=true;
RadioButton7->Visible=true;
 for(int j=0; j<=4417; j++)
               {
                      if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
                               {
                                if(StringGrid1->Cells[2][j].Pos("Tint"))
                                        {
                                        if(StringGrid1->Cells[3][j].Pos("Granopor"))
                                         {
                                                Edit1->Text=StringGrid1->Cells[6][j];
                                                Edit4->Text=StringGrid1->Cells[8][j];
                                                Edit5->Text=StringGrid1->Cells[10][j];
                                                Edit13->Text=StringGrid1->Cells[12][j];
 
                                                pigm1=StringGrid1->Cells[6][j];
                                                pigm2=StringGrid1->Cells[8][j];
                                                pigm3=StringGrid1->Cells[10][j];
                                                pigm4=StringGrid1->Cells[12][j];
 
                                                Edit16->Text= StringGrid1->Cells[7][j];
                                                Edit17->Text= StringGrid1->Cells[9][j];
                                                Edit18->Text= StringGrid1->Cells[11][j];
                                                Edit19->Text= StringGrid1->Cells[13][j];
                                                 }
                                        }
                                }
               }
 
                                                          for (int r=0; r<=51; r++)
                                                        {
                                                         if(StringGrid2->Cells[0][r].Pos(pigm1))
                                                                Edit8->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm2))
                                                                Edit10->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm3))
                                                                 Edit12->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm4))
                                                                 Edit14->Text=StringGrid2->Cells[1][r];
                                                         }
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton16Click(TObject *Sender)
{
z1=0;z2=0;z3=0;z4=0;z5=0;
g1=0;
AnsiString pigm1,pigm2,pigm3,pigm4;
Panel1->Visible=true;
RadioButton3->Visible=true;
RadioButton4->Visible=true;
RadioButton5->Visible=true;
RadioButton6->Visible=false;
RadioButton7->Visible=false;
for(int j=0; j<=4417; j++)
               {
                      if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
                               {
                                if(StringGrid1->Cells[2][j].Pos("Tint"))
                                        {
                                        if(StringGrid1->Cells[3][j].Pos("Nanopor"))
                                          {
                                                Edit1->Text=StringGrid1->Cells[6][j];
                                                Edit4->Text=StringGrid1->Cells[8][j];
                                                Edit5->Text=StringGrid1->Cells[10][j];
                                                Edit13->Text=StringGrid1->Cells[12][j];
 
                                                pigm1=StringGrid1->Cells[6][j];
                                                pigm2=StringGrid1->Cells[8][j];
                                                pigm3=StringGrid1->Cells[10][j];
                                                pigm4=StringGrid1->Cells[12][j];
 
                                                Edit16->Text= StringGrid1->Cells[7][j];
                                                Edit17->Text= StringGrid1->Cells[9][j];
                                                Edit18->Text= StringGrid1->Cells[11][j];
                                                Edit19->Text= StringGrid1->Cells[13][j];
                                                 }
                                        }
                                }
               }
 
                                                          for (int r=0; r<=51; r++)
                                                        {
                                                         if(StringGrid2->Cells[0][r].Pos(pigm1))
                                                                Edit8->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm2))
                                                                Edit10->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm3))
                                                                 Edit12->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm4))
                                                                 Edit14->Text=StringGrid2->Cells[1][r];
                                                         }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton17Click(TObject *Sender)
{
z1=0;z2=0;z3=0;z4=0;z5=0;
AnsiString pigm1,pigm2,pigm3,pigm4;
g1=0;
Panel1->Visible=true;
RadioButton3->Visible=true;
RadioButton4->Visible=true;
RadioButton5->Visible=true;
RadioButton6->Visible=true;
RadioButton7->Visible=true;
 for(int j=0; j<=4417; j++)
               {
                      if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
                               {
                                if(StringGrid1->Cells[2][j].Pos("Tint"))
                                        {
                                        if(StringGrid1->Cells[3][j].Pos("Silikon"))
                                        {
                                                Edit1->Text=StringGrid1->Cells[6][j];
                                                Edit4->Text=StringGrid1->Cells[8][j];
                                                Edit5->Text=StringGrid1->Cells[10][j];
                                                Edit13->Text=StringGrid1->Cells[12][j];
 
                                                pigm1=StringGrid1->Cells[6][j];
                                                pigm2=StringGrid1->Cells[8][j];
                                                pigm3=StringGrid1->Cells[10][j];
                                                pigm4=StringGrid1->Cells[12][j];
 
                                                Edit16->Text= StringGrid1->Cells[7][j];
                                                Edit17->Text= StringGrid1->Cells[9][j];
                                                Edit18->Text= StringGrid1->Cells[11][j];
                                                Edit19->Text= StringGrid1->Cells[13][j];
                                                 }
                                        }
                                }
               }
 
                                                          for (int r=0; r<=51; r++)
                                                        {
                                                         if(StringGrid2->Cells[0][r].Pos(pigm1))
                                                                Edit8->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm2))
                                                                Edit10->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm3))
                                                                 Edit12->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm4))
                                                                 Edit14->Text=StringGrid2->Cells[1][r];
                                                         }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton18Click(TObject *Sender)
{
z1=0;z2=0;z3=0;z4=0;z5=0;
AnsiString pigm1,pigm2,pigm3,pigm4;
g1=0;
Panel1->Visible=true;
RadioButton3->Visible=true;
RadioButton4->Visible=true;
RadioButton5->Visible=true;
RadioButton6->Visible=true;
RadioButton7->Visible=true;
for(int j=0; j<=4417; j++)
               {
                      if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
                               {
                                if(StringGrid1->Cells[2][j].Pos("Tint"))
                                        {
                                        if(StringGrid1->Cells[3][j].Pos("Silikat"))
                                          {
                                                Edit1->Text=StringGrid1->Cells[6][j];
                                                Edit4->Text=StringGrid1->Cells[8][j];
                                                Edit5->Text=StringGrid1->Cells[10][j];
                                                Edit13->Text=StringGrid1->Cells[12][j];
 
                                                pigm1=StringGrid1->Cells[6][j];
                                                pigm2=StringGrid1->Cells[8][j];
                                                pigm3=StringGrid1->Cells[10][j];
                                                pigm4=StringGrid1->Cells[12][j];
 
                                                Edit16->Text= StringGrid1->Cells[7][j];
                                                Edit17->Text= StringGrid1->Cells[9][j];
                                                Edit18->Text= StringGrid1->Cells[11][j];
                                                Edit19->Text= StringGrid1->Cells[13][j];
                                                 }
                                        }
                                }
               }
 
                                                          for (int r=0; r<=51; r++)
                                                        {
                                                         if(StringGrid2->Cells[0][r].Pos(pigm1))
                                                                Edit8->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm2))
                                                                Edit10->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm3))
                                                                 Edit12->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm4))
                                                                 Edit14->Text=StringGrid2->Cells[1][r];
                                                         }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioButton19Click(TObject *Sender)
{
z1=0;z2=0;z3=0;z4=0;z5=0;
AnsiString pigm1,pigm2,pigm3,pigm4;
g1=0;
Panel1->Visible=true;
RadioButton4->Visible=true;
RadioButton5->Visible=true;
RadioButton6->Visible=false;
RadioButton7->Visible=false;
for(int j=0; j<=4417; j++)
               {
                      if(StringGrid1->Cells[0][j].Pos(Edit2->Text))
                               {
                                if(StringGrid1->Cells[2][j].Pos("Top"))
                                        {
                                        if(StringGrid1->Cells[3][j].Pos("Style"))
                                          {
                                                Edit1->Text=StringGrid1->Cells[6][j];
                                                Edit4->Text=StringGrid1->Cells[8][j];
                                                Edit5->Text=StringGrid1->Cells[10][j];
                                                Edit13->Text=StringGrid1->Cells[12][j];
 
                                                pigm1=StringGrid1->Cells[6][j];
                                                pigm2=StringGrid1->Cells[8][j];
                                                pigm3=StringGrid1->Cells[10][j];
                                                pigm4=StringGrid1->Cells[12][j];
 
                                                Edit16->Text= StringGrid1->Cells[7][j];
                                                Edit17->Text= StringGrid1->Cells[9][j];
                                                Edit18->Text= StringGrid1->Cells[11][j];
                                                Edit19->Text= StringGrid1->Cells[13][j];
                                                 }
                                        }
                                }
               }
 
                                                          for (int r=0; r<=51; r++)
                                                        {
                                                         if(StringGrid2->Cells[0][r].Pos(pigm1))
                                                                Edit8->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm2))
                                                                Edit10->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm3))
                                                                 Edit12->Text=StringGrid2->Cells[1][r];
                                                         if(StringGrid2->Cells[0][r].Pos(pigm4))
                                                                 Edit14->Text=StringGrid2->Cells[1][r];
                                                         }
}  
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Edit6Change(TObject *Sender)
{
Button14->Enabled=true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
RadioButton3->Checked=false;
RadioButton4->Checked=false;
RadioButton5->Checked=false;
RadioButton6->Checked=false;
RadioButton7->Checked=false;
RadioButton10->Checked=false;
RadioButton11->Checked=false;
RadioButton12->Checked=false;
RadioButton13->Checked=false;
RadioButton14->Checked=false;
RadioButton15->Checked=false;
RadioButton16->Checked=false;
RadioButton17->Checked=false;
RadioButton18->Checked=false;
RadioButton19->Checked=false;
}
//---------------------------------------------------------------------------

Тут так посмотришь, реально страшно, что много его. Но просто он для обработки базы из 4500 товаров. Поэтому так.

nick42 · 04.02.2012, 02:41

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

Katrin1977 · 04.02.2012, 02:45 **[ТС]**

Спасибо большое за совет)
Файлики у меня в архиве.

__bool · 04.02.2012, 04:40

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

вот для таких случаев и удобно создавать индексированные переменные

+1;
Судя по всему Katrin1977 очень не любит циклы)))

А если и без индексированных переменных(массивов)
К примеру вот такие "штуки"

Код C++

RadioButton3->Checked=false;
RadioButton4->Checked=false;
RadioButton5->Checked=false;
RadioButton6->Checked=false;
RadioButton7->Checked=false;
RadioButton10->Checked=false;
RadioButton11->Checked=false;
RadioButton12->Checked=false;
RadioButton13->Checked=false;
RadioButton14->Checked=false;
RadioButton15->Checked=false;
RadioButton16->Checked=false;
RadioButton17->Checked=false;
RadioButton18->Checked=false;
RadioButton19->Checked=false;

Лучше оформлять вот так:

Код C++

1
2
3

for (int i = 3; i <= 19; ++i) {
((TRadioButton*)this->FindComponent("RadioButton"+IntToStr(i)))->Checked=false;
}

Код C++

//Nummer
 AnsiString path0 = ExtractFilePath(Application->ExeName)+"1st.txt";
 StringGrid1->Cols[0]->LoadFromFile(path0);
 
 //Aufhellung
 AnsiString path1 = ExtractFilePath(Application->ExeName)+"2st.txt";
 StringGrid1->Cols[1]->LoadFromFile(path1);
 
 //Material Rezeptur
 StringGrid1->ColWidths[2]=100;
 AnsiString path2 = ExtractFilePath(Application->ExeName)+"3st.txt";
 StringGrid1->Cols[2]->LoadFromFile(path2);
 
 //Material m?glich
 StringGrid1->ColWidths[3]=150;
 AnsiString path3 = ExtractFilePath(Application->ExeName)+"4st.txt";
 StringGrid1->Cols[3]->LoadFromFile(path3);
 
 //GM
 AnsiString path4 = ExtractFilePath(Application->ExeName)+"5st.txt";
 StringGrid1->Cols[4]->LoadFromFile(path4);
 
 //kg GM
 AnsiString path5 = ExtractFilePath(Application->ExeName)+"6st.txt";
 StringGrid1->Cols[5]->LoadFromFile(path5);
 
 //Pigment1
 AnsiString path6 = ExtractFilePath(Application->ExeName)+"7st.txt";
 StringGrid1->Cols[6]->LoadFromFile(path6);
 
 //kg/kg
 AnsiString path7 = ExtractFilePath(Application->ExeName)+"8st.txt";
 StringGrid1->Cols[7]->LoadFromFile(path7);
 
 //Pigment2
 AnsiString path8 = ExtractFilePath(Application->ExeName)+"9st.txt";
 StringGrid1->Cols[8]->LoadFromFile(path8);
 
 //kg/kg
 AnsiString path9 = ExtractFilePath(Application->ExeName)+"10st.txt";
 StringGrid1->Cols[9]->LoadFromFile(path9);
 
 //Pigment3
 AnsiString path10 = ExtractFilePath(Application->ExeName)+"11st.txt";
 StringGrid1->Cols[10]->LoadFromFile(path10);
 
 //kg/kg
 AnsiString path11 = ExtractFilePath(Application->ExeName)+"12st.txt";
 StringGrid1->Cols[11]->LoadFromFile(path11);
 
 //Pigment4
 AnsiString path12 = ExtractFilePath(Application->ExeName)+"13st.txt";
 StringGrid1->Cols[12]->LoadFromFile(path12);
 
 //kg/kg
 AnsiString path13 = ExtractFilePath(Application->ExeName)+"14st.txt";
 StringGrid1->Cols[13]->LoadFromFile(path13);
 
 //Preis Pigment/kg
 AnsiString path14 = ExtractFilePath(Application->ExeName)+"15st.txt";
 StringGrid1->Cols[14]->LoadFromFile(path14);

Я так понимаю эти AnsiString'и просто так создаются? (в дальнейшем не используются)
И многократный вызов одного и того же метода не имеющего параметры (ExtractFilePath()) бессмысленно.
На парсинг строки ведь тоже время требуется.
Тогда так:

Код C++

String path = ExtractFilePath(Application->ExeName);
for (int i = 0; i < 15; ++i) {
    StringGrid1->Cols[i]->LoadFromFile(path+IntToStr(i+1)+"st.txt");
}

Добавлено через 17 минут

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

Button14Click

Строки 168-224.
Зачем столько раз производится одно и то же сравнение? (Например if (RadioButton3->Checked==true))
Нужно как-то алгоритмизировать структуру.

Katrin1977, Вы бы лучше уж тогда проект целиком выложили, со всеми базами.
Думаю ваш проект был бы не против небольшой оптимизации

Если скорость и возрастет всего на 20-30% (это уж точно)
То количество строк кода уменьшится в 200-300%
И работать будет гораздо проще

nick42 · 04.02.2012, 12:03

Кстати, насколько ощутимы эти самые "тормоза"? Я пробовал стартовать с полупустыми файлами (txt и xls) - без загрузки второй таблицы (от baymit.xls) стартует практически мгновенно. Если и с ней - где-то на одну секунду дольше. Можете попробовать со своими данными (ниже - текст для начальной фазы; до обработчика Button2Click)__

Код C++

 double kol,cena;
 bool vari = 1;    //  false - without XLS    true - plus XLS
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
      AnsiString dir, dire ;
      dir = ExtractFilePath(Application->ExeName);
      dire = dir+"\\baymit.xls";
      for (int i=0;i<ColCount;i++)
        StringGrid1->Cols[i]->LoadFromFile(dir+IntToStr(i+1)+"st.txt");
      if (vari)
    {
 StringGrid2->ColWidths[0]=200;
 var_Excel=CreateOleObject("Excel.Application");
 var_Excel.OlePropertySet("Visible",false);
 var_Excel.OlePropertyGet("Application").OlePropertyGet(
         "Workbooks").OleProcedure("Open",dire.c_str());
 var_Sheet = var_Excel.OlePropertyGet("ActiveSheet");
 int ccn , rcn ; //  =Column_Counter    =Row_Counter
   StringGrid2->ColCount=Max_Column;
   StringGrid2->RowCount=Max_Row;
 for (rcn=0;rcn<=Max_Row;rcn++)
   for (ccn=0;ccn<=Max_Column;ccn++)
     StringGrid2->Cells[ccn][rcn] =
       var_Sheet.OlePropertyGet("Cells").OlePropertyGet(
                 "Item",rcn+1,ccn+1);
 var_Excel.OlePropertyGet("Application").OleProcedure("Quit");
 var_Sheet = Unassigned;
 var_Excel = Unassigned;
    }
}

переменная vari - для подключения-отключения загрузки второй таблицы.

Katrin1977 · 04.02.2012, 12:33 **[ТС]**

Спасибо. Но без подключения файла xls никак.

LK · 04.02.2012, 12:37

может, тормоза в насиловании файла xls , говорят, этот файл можно экспортировать в текстовый с разделителями, например, .csv, и уже его грузить в стринггрид.
просто мысль, к коду я не присматривался

nick42 · 04.02.2012, 12:37

Шо никак?! Это ж для тестирования; просто проанализировать: что именно тормозит...

04.02.2012, 00:50	#1
Katrin1977 Новичок Регистрация: 19.09.2011 Сообщений: 44 Репутация: 1 (1)	Ускорение загрузки Exe-файла Здравствуйте. Меня вот интересует такой вопрос, как ускорить загрузку Экзешника. Как, я понимаю, мою программу грузить то, что в StringGrid загружаются текстовые файлы. Но без загрузки файлов никак. Кто подскажет, как оптимизировать программу? Спасибо большее всем, кто ответить.

04.02.2012, 02:10	#11
nick42 Форумчанин Регистрация: 23.09.2011 Сообщений: 796 Репутация: 502 (379)	Re: Ускорение загрузки Exe-файла - а как? шаманить? Вы ж код не показываете; вдруг у вас там в циклах лишку наворочено, отсюда и тормоза... .

04.02.2012, 02:18	#12
LK Модератор Регистрация: 09.04.2010 Сообщений: 9,548 Репутация: 6295 (3791)	Re: Ускорение загрузки Exe-файла Katrin1977, вы зря не обратили внимания на это Сообщение от LK вас в вашем вопросе ничто не смущает ? - "оптимизировать" код на основании общего описание чего-то, не имея перед глазами конкретного кода, который необходимо оптимизировать, как минимум, глупая затея.

04.02.2012, 02:41	#14
nick42 Форумчанин Регистрация: 23.09.2011 Сообщений: 796 Репутация: 502 (379)	Re: Ускорение загрузки Exe-файла не удержусь, чтоб не посоветовать..., - вот для таких случаев и удобно создавать индексированные переменные (и компоненты). По скорости разница небольшая, а текста - гораздо меньше. Отсюда - и читабельность лучше, и разбор кода... . (ещё б Вы текстовые файлики в архиве пристегнули, а то на 4,5 тыс строк текст искать - обременительно).

04.02.2012, 02:45 [ТС]	#15
Katrin1977 Новичок Регистрация: 19.09.2011 Сообщений: 44 Репутация: 1 (1)	Re: Ускорение загрузки Exe-файла Спасибо большое за совет) Файлики у меня в архиве.

04.02.2012, 12:33 [ТС]	#18
Katrin1977 Новичок Регистрация: 19.09.2011 Сообщений: 44 Репутация: 1 (1)	Re: Ускорение загрузки Exe-файла Спасибо. Но без подключения файла xls никак.

04.02.2012, 12:37	#19
LK Модератор Регистрация: 09.04.2010 Сообщений: 9,548 Репутация: 6295 (3791)	Re: Ускорение загрузки Exe-файла может, тормоза в насиловании файла xls , говорят, этот файл можно экспортировать в текстовый с разделителями, например, .csv, и уже его грузить в стринггрид. просто мысль, к коду я не присматривался Последний раз редактировалось LK; 04.02.2012 в 13:13.

После регистрации реклама в сообщениях будет скрыта

04.02.2012, 12:37	#20
nick42 Форумчанин Регистрация: 23.09.2011 Сообщений: 796 Репутация: 502 (379)	Re: Ускорение загрузки Exe-файла Шо никак?! Это ж для тестирования; просто проанализировать: что именно тормозит...

Похожие темы
Тема	Автор
C# для начинающих Ошибка загрузки файла Сериализация класса class персонаж { int здоровье_персонажа = 280; int ярость = 0; int предел_ярости = 200;	franken
PHP для начинающих ошибка загрузки файла в форме есть поле <input type="hidden" name="MAX_FILE_SIZE" value="10485760" /> <input type="file" name="filename" /> в файле обрабоки: if($_FILES > 102431024) { echo ("Размер файла превышает три мегабайта"); exit; } copy($_FILES,	sergm87
PHP для начинающих загрузки файла в папку! Помогите с кодом пожалуйста! я только учусь с пхп программировать))) Краткое описание: Скрипт выводит web форму для загрузки файлов: - Поле для загрузки - Кнопка "Закачать" При нажатии на кнопку "Закачать" выполняется попытка загрузки файла, выбранного в поле для загрузки....	ZIRO
PHP для начинающих Скрипт загрузки файла Ребят, у меня такая ситуация: нужно при нажатии на ссылку открыть-загрузить данные с сервера (я создал сайт и разместил на нем файл) подскажите плиз какой мне использовать скрипт для того, чтобы началась его загрузка через браузер?? Добавлено через 1 минуту Все спс )) Уже нашел реализацию =)))	Dmitrijj
ASP.NET Как дождаться загрузки XML файла Как дождаться загрузки XML файла Вот пример........локально все работает а когда обращаюсь к урлу выдает ошибку <% Dim xmlDoc Dim currNode function onLoad	max-@