デバッグで Abnormal program termination が必ず出る。

Question

現在、embarcadero RAD Studio 10.3でプログラミングを行っています。

exeファイルと同じディレクトリ内のSaveFile.txtを読み込むプログラムをデバッグする時に、ステップ実行していくと必ず”Abnormal program termination”が発生して、RAD Studioごと強制終了してしまうのですが、回避方法などはありませんでしょうか？

下のプログラムで、最初の行からステップ実行していくと、”string line;”の宣言のところで出てきます。

また、”string line;”を一番最初のステップに変えても起こります。
なにかstring型の宣言と関係はありますでしょうか？

こちらのgithubサイトにコードがありますが、RAD Studioをお持ちの方で、他の方のPCでも同様の現象は発生していますでしょうか？

多少、他の開発環境（Atmel Studioのマイコン開発）でも、組み込みOSを扱ったプログラムでも、デバッグ機能で数値確認などが上手くできない現象などを経験したことが多少あるのですが、PCアプリ開発ではこのような現象はいつも起こるような現象でしょうか？
デバッグなどで便利な機能や方法などアドバイスもお願いします。

using namespace std;

void __fastcall TTCP_Client::FormCreate(TObject *Sender)
{

    AnsiString filename = "SaveFile.txt";

    ifstream fin;
    fin.open(filename.c_str(), ios::in);

    if( !(fin.fail()) )
    {
        string line;
        string line02;

        while(getline(fin,line))
        {
            //cout << "[" << line << "]" << endl;
            //line02 << "[" << line << "]" << endl;
            line = "[" + line;
            line = line + "]\r\n";
            line02 = line02 + line;
        }

        AnsiString str(line02.c_str());
        ShowMessage(str);
    }
    else
    {
        StatusBar1->Panels->Items[0]->Text = "Save file does not exist!";
    }

}

Comments

[jimbe]

C++ でしたらご質問のタグも C++ にして頂けますか.

[MaeharaKenji]

わかりました。ありがとうございます。

Answer 1

回答初めてなので，言葉足らずだったら，申し訳ありません。
また，回答になっているかわかりませんが，自分の開発環境(Embarcadero10.3.3)で試してみた結果を報告します。
「結果」
上記ソースコードのままでは，エラーが表示されたため，エラーを除去して実行した結果，「Abnormal Program termination」は表示されませんでした。

「調査結果」
「Abnormal Program termination」のキーワードで調べてみましたが，「abort()」関数が呼ばれているみたいです。どのように解決するかも調べましたが，そこまでは見つけられませんでした。力及ばず，すいません。会社の開発環境がEmbarcadero10.3と同じなので，年明けにでもまた試してみます。

下記に修正したソースコードを記載しておきます。
Project1.cpp

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", TCPClient);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
	try
	{
		Application->Initialize();
		Application->MainFormOnTaskBar = true;
		Application->CreateForm(__classid(TTCPClient), &TCPClient);
		Application->Run();
	}
	catch (Exception &exception)
	{
		Application->ShowException(&exception);
	}
	catch (...)
	{
		try
		{
			throw Exception("");
		}
		catch (Exception &exception)
		{
			Application->ShowException(&exception);
		}
	}
	return 0;
}
//---------------------------------------------------------------------------

Unit1.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

using namespace std;            //  stringを使用するため
#include <iostream>             //  cin,coutを使用するため
#include <fstream>              //  ifstream,ofstreamを使用するため
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TTCPClient *TCPClient;
//---------------------------------------------------------------------------
__fastcall TTCPClient::TTCPClient(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TTCPClient::FormCreate(TObject *Sender)
{
	AnsiString filename = "SaveFile.txt";

	ifstream fin;                   //  ファイル読み込み用ストリーム
	//  SaveFile.txtのオープン(読み取り)
	fin.open(filename.c_str(), ios::in);

	//  ファイルオープンが成功の場合(SaveFileが存在した場合 )
	if( !(fin.fail()) )
	{
		string line;
		string line02;

		//  SaveFile.txtのEOFまで
		while(getline(fin,line))
        {
            //cout << "[" << line << "]" << endl;
			//line02 << "[" << line << "]" << endl;
			line = "[" + line;
            line = line + "]\r\n";
			line02 = line02 + line;
        }

		AnsiString str(line02.c_str());
        ShowMessage(str);
	}
	//  SaveFileが存在しない場合
	else
	{
		//  画面フォームのStatusBar1上にパネルがいくつあるかわからないため
        //  Items[0]でエラーになるため，↓に書き換え
		//StatusBar1->Panels->Items[0]->Text = "Save file does not exist!";

		//  StatusBar1にパネルがいくつあるかわからないため，
		//  SimpleTextプロパティに変更
		StatusBar1->SimpleText = "Save file does not exist!";
	}
}
//---------------------------------------------------------------------------

Unit1.h

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ComCtrls.hpp>
//---------------------------------------------------------------------------
class TTCPClient : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TStatusBar *StatusBar1;
	void __fastcall FormCreate(TObject *Sender);
private:	// ユーザー宣言
public:		// ユーザー宣言
	__fastcall TTCPClient(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TTCPClient *TCPClient;
//---------------------------------------------------------------------------
#endif