how to speed the program with bcb?

Code:

---

typedef struct AList
{
  int no1;
  int no2;
  int no3;
  int no4;
  int no5;
 
} TAList;
typedef TAList* PAList;

TList * ResultList;


void __fastcall TForm1::FormCreate(TObject *Sender)
{
    randomize();
    ResultList = new TList; 
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 DWORD StartTime,EndTime,LastTime;
 StartTime=GetTickCount();  //
    for(int i=0;i<100000;i++)
    {
            PAList AStruct;
            AStruct = new TAList;
            AStruct->no1=random(10);
            AStruct->no2=random(10);
            AStruct->no3=random(10);
            AStruct->no4=random(10);
            AStruct->no5=random(10);
            ResultList->Add(AStruct);
       
    }

        for(int i=0;i<Form1->ResultList->Count-1;i++)
        {
                PAList AStruct;
                AStruct = new TAList;
                AStruct = (PAList) ResultList->Items[i];
              for(int j=i+1;j<Form1->ResultList->Count;j++)
              {
                PAList BStruct;
                BStruct = new TAList;
                BStruct = (PAList) ResultList->Items[j];
                int iSame=0;
                if(AStruct->no1==(BStruct->no1+1)) continue;
                if(AStruct->no2==(BStruct->no2+1)) continue;
                if(AStruct->no3==(BStruct->no3+1)) continue;
                if(AStruct->no4==(BStruct->no4+1)) continue;
                if(AStruct->no5==(BStruct->no5+1)) continue;

                ResultList->Delete(j);j--;                 
                delete BStruct;
              }

      }

EndTime=GetTickCount(); 
LastTime=EndTime-StartTime;
Application->MessageBoxA(IntToStr(LastTime).c_str(),"time used",MB_ICONEXCLAMATION);     
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
      if(ResultList->Count>0)
      for(int i=ResultList->Count-1;i<-1;i--)
      {
                PAList AStruct;
                AStruct = new TAList;
                AStruct =(PAList) ResultList->Items[i];
                ResultList->Delete(i); 
                delete[] AStruct;

      }
}

---

At first sight, use a static array instead of TList.


and, you have a memory leakage here (and on other places)

Quote:

---

AStruct = new TAList;
AStruct = (PAList) ResultList->Items[i];

---

Is this just an exercise, or is there some big plan for doing this?

> for(int i=0;i<100000;i++)
Because it seems to me that you create a million sets of random values, then filter them in some way, and hope that there are enough sets which satisfy some condition for you to work with later on.

Perhaps explaining what you are trying to achieve with all this would be helpful.

i could not replace tlist by array,for i do not know the size of the list.
my software is designed for this: i have 12 columns,every column has 0,1,2,3 or Multiselect choices,to select one for each columns to form a thing,just like012000011133,so there has 16777216 choice at total,and i want to filter some choice,what can i do