C++ builder 6 error External exception EEFFACE

pytanie zadane 2 grudnia 2016 w C i C++ przez xSzeja Nowicjusz (140 p.)

Cześć pobrałem paczkę z plikiem z 8 odcinka obiektowego c++ z "NotatnikiemYT" po naciśnięci F9 i wejściu w notatniku opcję "zapisz jako" i zmienieniu rozszerzenia pliku z .txt na "dowolny plik" wyskakuje mi error: External exception EEFFACE po czym builder się sypie. Co z tym fantem zrobić?

komentarz 2 grudnia 2016 przez criss Mędrzec (172,590 p.)

Nie jestem pewien, moge się mylić, ale wydaje mi się, że przy problemach programistycznych przydaje się kod. Tak mi ktoś powiedział kiedyś.

komentarz 2 grudnia 2016 przez xSzeja Nowicjusz (140 p.)

Oprócz samego errora nie wyskakuje mi kod o błędzie a program był robiony przez Mirosława Zelent'a to wątpię by gdzieś był błąd ;)

komentarz 2 grudnia 2016 przez criss Mędrzec (172,590 p.)

Chodziło mi o kod programu :P

komentarz 2 grudnia 2016 przez xSzeja Nowicjusz (140 p.)

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

AnsiString nazwapliku="";

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Otwrz1Click(TObject *Sender)
{

   if (OpenDialog1->Execute())
   {
     try
     {

        tresc->Lines->LoadFromFile(OpenDialog1->FileName);
        nazwapliku = OpenDialog1->FileName;

     }

     catch (...)
     {

        ShowMessage("Błąd otwarcia pliku. Upewnij się, że plik istnieje na dysku");
     }

   }

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Zapiszjako1Click(TObject *Sender)
{
   if (SaveDialog1->Execute())
   {
     try
     {

        tresc->Lines->SaveToFile(SaveDialog1->FileName);
        nazwapliku = SaveDialog1->FileName;

     }

     catch (...)
     {

        ShowMessage("Zapis zakończył się niepowodzeniem!");
     }

   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zapisz1Click(TObject *Sender)
{
        if (nazwapliku!="")
        {
           tresc->Lines->SaveToFile(nazwapliku);
        }
        else
        {
            Form1->Zapiszjako1Click(MainMenu1);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Nowy1Click(TObject *Sender)
{
    if(Application->MessageBox(
    "Czy na pewno utworzyć nowy plik?","Potwierdź",
    MB_YESNOCANCEL | MB_ICONQUESTION) == IDYES )
    {
       tresc->Lines->Clear();
       nazwapliku="";
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::trescKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
     if (Shift.Contains(ssCtrl))
     {
        if ((Key == 's') || (Key == 'S'))
        {
            Form1->Zapisz1Click(MainMenu1);
        }



     }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zakocz1Click(TObject *Sender)
{
    if(Application->MessageBox(
    "Czy na pewno zakończyć program?","Potwierdź",
    MB_YESNO | MB_ICONQUESTION) == IDYES )
    {
        Application->Terminate();
    }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    if(Application->MessageBox(
    "Czy na pewno zakończyć program?","Potwierdź",
    MB_YESNO | MB_ICONQUESTION) == IDNO )
    {
        Action=caNone;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Wytnij1Click(TObject *Sender)
{
    tresc->CutToClipboard();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KopiujCtrlC1Click(TObject *Sender)
{
    tresc->CopyToClipboard();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WklejCtrlV1Click(TObject *Sender)
{
    tresc->PasteFromClipboard();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zawijaniewierszy1Click(TObject *Sender)
{

   if (Zawijaniewierszy1->Checked==true)
   {
      Zawijaniewierszy1->Checked=false;
      tresc->WordWrap=false;
      tresc->ScrollBars = ssBoth;
   }
   else
   {
      Zawijaniewierszy1->Checked=true;
      tresc->WordWrap = true;
      tresc->ScrollBars = ssVertical;

   }



}
//---------------------------------------------------------------------------
void __fastcall TForm1::czcionka1Click(TObject *Sender)
{
   if (FontDialog1->Execute())
   {
     //kroj
     tresc->Font->Name = FontDialog1->Font->Name;

     //kolor
     tresc->Font->Color = FontDialog1->Font->Color;

     //rozmiar
     tresc->Font->Size = FontDialog1->Font->Size;

     //styl
     tresc->Font->Style = FontDialog1->Font->Style;


   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Oprogramie1Click(TObject *Sender)
{
   Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Zapraszamnabloga1Click(TObject *Sender)
{
   ShellExecute(NULL,"open","http://miroslawzelent.pl", NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------