如果能巧妙地运用数组会给我们带来很多方便;以下是我的一些用法，还觉得自己每掌握它的精髓；希望大家多多指点；（现丑了）



void ) __declspec(dllexport) myList::ReadList(AnsiString TS)

{//读出ini文件的数据

   System::AnsiString LabPath=ExtractFilePath(".\\");

   TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini");







   Form2->AddList();

   for(int i=0;i<Form2->LabelList->Count;i++)

    {

       TLabel *Lab;

       Lab=(TLabel *)Form2->LabelList->Items[i];

       Lab->Left=LabIni->ReadInteger(TS,"Left"+IntToStr(i), Lab->Left);

       Lab->Top=LabIni->ReadInteger(TS,"Top"+IntToStr(i),Lab->Top);

    }

}



void myList::WriteList(AnsiString TS)

{//写入文件

   System::AnsiString LabPath=ExtractFilePath(".\\");

   TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini");

   Form2->AddList();

   for(int i=0;i<Form2->LabelList->Count;i++)

    {

       TLabel *Lab;

       Lab=(TLabel *)Form2->LabelList->Items[i];

       LabIni->WriteInteger(TS,"Left"+IntToStr(i), Lab->Left);

       LabIni->WriteInteger(TS,"Top"+IntToStr(i),Lab->Top);

    }

}



  System::AnsiString LabPath=ExtractFilePath(".\\");

   TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini"); 







  TList *LabelList;

   LabelList=new TList;

   LabelList->Add(Label1);

   LabelList->Add(Label2);

   LabelList->Add(Label3);

   LabelList->Add(Label4);

   LabelList->Add(Label5);

   LabelList->Add(Label6);

   LabelList->Add(Label7);

   LabelList->Add(Label8);

   LabelList->Add(Label9);

   LabelList->Add(Label10);

   LabelList->Add(Label11);

   LabelList->Add(Label12);

   LabelList->Add(Label13);

   LabelList->Add(Label14);

   LabelList->Add(Label15);













void myList::NmyChick(TMenuItem *Item,AnsiString STR,int BL)

{

   file://记录TMenuItem 的状态：

   static TMenuItem *sItem=0;

   file://Item=Form2->PopupMenu1->Items;

   file://Item=dynamic_cast<TMenuItem *>(Form2->WindowMenu->Items->GetParentMenu);

   if(sItem==Item){

      Item->Checked=false;

      return;

   }

   else if(sItem) sItem->Checked=false;

   Item->Checked=true;

   sItem=Item;

   if(Item->Checked==true){

       file://&para;&macr;&Igrave;&not;&cedil;&Auml;±&auml;Form2&micro;&Auml;&acute;ó&ETH;&iexcl;&ordm;&Iacute;&ETH;&Icirc;×&acute;

       if(BL){

         Form2->Image1->Picture->Bitmap->Height =500;

         Form2->Image1->Picture->Bitmap->Width  =732;

         Form2->Image1->Stretch = false;







         file://Form2->Image2->Picture->LoadFromFile(".\\LOGO.bmp");

         Form2->Image2->Width = Form2->Image2->Picture->Width;

         Form2->Image2->Height = Form2->Image2->Picture->Height;

         Form2->Image2->Top  = 12;

         Form2->Image2->Left = 15;

         Form2->Height = 500;

         Form2->Width = 732;

         Form2->Top = 0;

         Form2->Left = Screen->Width-Form2->Width;

         TCanvas *TSS =Form2->Image1->Picture->Bitmap->Canvas;

         Form1->DrawBarCode(TSS,120,300,125);

         Form2->Update();

       }

       else

       {

         Form2->Image1->Picture->Bitmap->Height =732;

         Form2->Image1->Picture->Bitmap->Width  =555;

         Form2->Image1->Stretch = false;







         Form2->Image2->Width = Form2->Image2->Picture->Width;

         Form2->Image2->Height = Form2->Image2->Picture->Height;

         Form2->Image2->Top  = 12;

         Form2->Image2->Left = 15;

         Form2->Height =732 ;

         Form2->Width = 555;

         Form2->Top = 0;

         Form2->Left = Screen->Width-Form2->Width;

         Form1->MakeLabel();

       }

         Form2->Caption = String(Form2->Image1->Picture->Bitmap->Height)+" - "+

                     String(Form2->Image1->Picture->Bitmap->Width);

      ReadList(STR);

      Form2->Update();







     }

}





void __fastcall TForm2::FormHide(TObject *Sender)

{

   AnsiString bj[]={"打横1","打竖1","打横2","打竖2","打横3","打竖3","还原原此设置"};

   for(int i=0;i<PopupMenu1->Items->Count;i++){

      if(PopupMenu1->Items->Items[i]->Checked) LT->WriteList(bj[i]);

      }



}







void __fastcall TForm2::N4Click(TObject *Sender)

{

   LT->NmyChick(Form2->N4,"打竖2",0);

}









void __fastcall TForm2::N5Click(TObject *Sender)

{

   LT->NmyChick(Form2->N5,"打横2",1);

}







void __fastcall TForm2::N31Click(TObject *Sender)

{

   LT->NmyChick(Form2->N31,"打竖3",0);

}









void __fastcall TForm2::N32Click(TObject *Sender)

{

   LT->NmyChick(Form2->N32,"打横3",1);

}