#include 
#pragma hdrstop    #include "Unit1.h"
#include "Unit2.h"
#include 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TStringList* MyList=new TStringList();
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
        MyList->LoadFromFile("C:\\DataBase.Vac");               
         //為database為一個文字檔
}    void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
        delete MyList;
} 

引言: 各位先進： 因程式需要所以將StringList設為全域變數，不過在BCB5執行測試時，有時會當在那 邊(尤其是開MediaPlayer時)，我想請問是程式問題還是單純的系統不穩(win98)，謝謝。

#include 
#pragma hdrstop    #include "Unit1.h"
#include "Unit2.h"
#include 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TStringList* MyList=new TStringList();
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
        MyList->LoadFromFile("C:\\DataBase.Vac");               
         //為database為一個文字檔
}    void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
        delete MyList;
} 

TStringList* MyList=NULL;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   MyList=new TStringList;
}
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   if(MyList!=NULL)
   {
      delete MyList;
   }
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
   MyList->LoadFromFile("C:\\DataBase.Vac");               
   //為database為一個文字檔
}

引言: moonrise 你好: 建議你把記憶體的配置與釋放寫在 FormCreate/FormDestroy 裡面

TStringList* MyList=NULL;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   MyList=new TStringList;
}
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   if(MyList!=NULL)
   {
      delete MyList;
   }
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
   MyList->LoadFromFile("C:\\DataBase.Vac");               
   //為database為一個文字檔
}

-- Enjoy Researching & Developing --

引言:最後，這個問題比較好的方法應是用「聰明指標」，標準函式庫下有一個 auto_ptr 最適合用來解決這類的問題： #include class TForm1 : ... { ... private : std::auto_ptr MyList; };

#include  
class TForm1 : ... {
...    private :        std::auto_ptr MyList;
};    

關於tomlee兄 所提出的 程式碼 因為我在測試的時候發現無法使用 應該是 忘了加 [ code] [/ code] 所以少掉了一些程式碼 再這邊做一點補充

 
//.h//
#include  
class TForm1 : ... {
...    private :        std::auto_ptr MyList;
};    //.cpp
void __fastcall TForm1::Button1Click(TObject *Sender)
{      MyList->Add("Plants");
  MyList->Add("Animals");
  MyList->Add("Minerals");
  MyList->Sorted = true;
  ListBox1->Items->AddStrings(MyList);    }

引言: tomlee 寫到 ... 然後在 FormCreate 裏寫： MyList.reset(new TStringList); 這樣當 Form 解構時，MyList 就會自動被釋放。

你是不是忘了做這件事情阿

引言:非常謝謝mkbobo兄 不過我把程式碼應用在簡單的範例上，還是有問題耶… //.h// #include class TForm1 : ... { ... private : std::auto_ptr MyList; }; //.cpp void __fastcall TForm1::Button1Click(TObject *Sender) { MyList->Add("Plants"); MyList->Add("Animals"); MyList->Add("Minerals"); MyList->Sorted = true; ListBox1->Items->AddStrings(MyList); } error: [C Error] Unit1.cpp(25): E2034 Cannot convert 'std::auto_ptr' to 'TStrings *' [C Error] Unit1.cpp(25): E2342 Type mismatch in parameter 'Strings' (wanted 'TStrings *', got 'std::auto_ptr')

問題出在這行 改成這樣就可以了

ListBox1->Items->AddStrings(&(*MyList));