Access Violation. Дозапись данных в файл txt.

@Samrisbe · Регистрация: 28.01.2011

Author24 — интернет-сервис помощи студентам

Еще один неприятный момент в котором не могу разобраться...
Первым делом глобально объявляю переменную:

C++

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
  TStringList *log;

Затем записываю в log и LogMemo данные:

C++

1 2	log->Add ("77"); LogMemo->Lines->Add ("77");

И все данные дописываю в txt файл:

C++

void __fastcall TForm1::LogMemoChange(TObject *Sender)
{
if (CheckBox24->Checked==true) { // если выбранно сохранять в мои документы
  AnsiString filename=Edit4->Text + "\\" + DateToStr(Date()) + "  Log" + ".txt";
  TStringList *temp_log = new TStringList;
  if (FileExists(filename))
  temp_log->LoadFromFile(filename);
  temp_log->AddStrings(log);
  temp_log->SaveToFile(filename);
  log->Clear(); // очищаем список
  delete temp_log;  // удаляем указатель
  temp_log = NULL; // убираем мусор
  }
}

И в этот момент мне выдает ошибку Access Violation.
Может кто видит явную ошибку которую не вижу я?

@Sergey-K · 08.03.2012, 19:05

C++

1	TStringList *log = new TStringList;

@Samrisbe · 08.03.2012, 19:40 **[ТС]**

Сообщение от Sergey-K

C++

1	TStringList *log = new TStringList;

? Советуеш вместо этого:

C++

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
  TStringList *log;

@Sergey-K · 08.03.2012, 19:57

Или так:

C++

TStringList *log;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  log = new TStringList;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  delete log;
}

	08.03.2012, 19:57