|
안녕하세요.
님의 코드를 복사해와서 실행해보니 메모리 누수 현상이 발생하더군요.
테스트을 위해 넣어 둔 Memo1에 계속되는 Line 추가가(지우는 부분이
빠져 있는 것이) 그 원인이었고요....
그래서 님의 코드를 거의 변경 안하고 결과만 Memo1에 넣도록 코드을 바꿔서
메모리 누수 현상을 없앴습니다. ^_^;;
참고로 TMemo::Lines는 TStrings입니다. TStringList는 TStrings을 상속 받아 만든
Class이며, Sort등을 제외하곤 많은 부분이 서로 유사합니다.
자세한 것은 도움말이나 C++ Builder 설치 Folder내 ...\Source\VCL\Classes.PAS를
참조하세요.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
m_pStrList = new TStringList();
m_nCount = 0;
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1( void )
{
if( m_pStrList )
{
m_pStrList->Clear();
delete m_pStrList;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
String strMsg;
strMsg.sprintf("Test:%d",m_nCount++);
while( m_pStrList->Count >= 100 ) // 변경, 기존 if 문과 비교에 특별히 다른 점은 없으나 혹시나 하여 바꿔봄
{
m_pStrList->Delete( 99 );
}
m_pStrList->Insert( 0, strMsg );
Caption = strMsg; // 실시간 결과 확인용 Code. 없으니 왠지 허전해서... -_-;;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if( m_pStrList )
{
Memo1->Lines->Assign( m_pStrList ); // 확인을 위해 TMemo에 결과를 넣음
// int nCnt =m_pStrList->Count; // 의미 없는 코드임.
// for( int n = nCnt - 1 ; n >= 0 ; n-- ) // 의미 없는 코드임.
// { // 의미 없는 코드임.
// m_pStrList->Strings[n] = ""; // 의미 없는 코드임.
// m_pStrList->Delete(n); // 의미 없는 코드임.
// } // 의미 없는 코드임.
m_pStrList->Clear();
}
if( Timer1->Enabled )
{
Timer1->Enabled = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if( !Timer1->Enabled )
{
Timer1->Enabled = true;
m_nCount = 0;
}
}
//---------------------------------------------------------------------------
아뿔사 님이 쓰신 글 :
: 넵.. 빠른 답변은 감사합니다.
: 위의 코드는 줄여서 적었습니다.
: 그리고 생성자와 소멸자에서 new와 delete는 해 주고 있습니다.
: 지금 답글에 보면 TStringList에 관한 얘기는 없는듯 합니다.
: 음 TStringList 객체 m_pStrList에 100개의 String을 가지고 있어야 하기에 필요합니다.
: 용수님 처럼 하는게 아니라 TStringList 객체 m_pStrList의 String를 ListView에 뿌려주고 있습니다.
: 근데 m_pStrList에 Insert 부분에서 100개만 잡고 있기 때문에 메모리가 일정부분증가하고 증가를
: 안해야 된다고 생각이 드는데요 ^^ 그리고 메모리가 증가하더라도 Clear부분에서 메모리해제를 해주는데
: 메모리해제가 안되는 이유를 여쭤 본겁니다.
:
: 아래 소스는 제가 따로 테스트를 해 봤지만 메모리는 줄지 않는것 같습니다.
: __fastcall TForm1::TForm1(TComponent* Owner)
: : TForm(Owner)
: {
: m_pStrList = new TStringList();
: m_nCount = 0;
: }
: TForm1::~TForm1()
: {
: if( m_pStrList )
: {
: m_pStrList->Clear();
: delete m_pStrList;
: }
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm1::Timer1Timer(TObject *Sender)
: {
: String strMsg;
: strMsg.sprintf("Test:%d",m_nCount++);
: if( m_pStrList->Count == 100 )
: {
: m_pStrList->Delete( 99 );
: m_pStrList->Insert( 0, strMsg );
: Memo1->Lines->Insert( 0, strMsg );
: }
: else
: {
: Memo1->Lines->Insert( 0, strMsg );
: }
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm1::Button2Click(TObject *Sender)
: {
: if( m_pStrList )
: {
: int nCnt =m_pStrList->Count;
: for( int n = nCnt - 1 ; n >= 0 ; n-- )
: {
: m_pStrList->Strings[n] = "";
: m_pStrList->Delete(n);
: }
: m_pStrList->Clear();
: }
: if( Timer1->Enabled )
: {
: Timer1->Enabled = false;
: }
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm1::Button1Click(TObject *Sender)
: {
: if( !Timer1->Enabled )
: {
: Timer1->Enabled = true;
: m_nCount = 0;
: }
: }
:
:
:
:
:
:
|
