メモ帳を用いたデータの保存と読み込み

プログラム例　（実行ファイル、プロジェクトファイル）

１．headerファイル

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Dialogs.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE 管理のコンポーネント
TMemo *Memo1;
TButton *Button1;
TOpenDialog *OpenDialog1;
TSaveDialog *SaveDialog1;
TMainMenu *MainMenu1;
TMenuItem *File1;
TMenuItem *N1;
TMenuItem *N2;
TButton *Button2;
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
void __fastcall Button1Click(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // ユーザー宣言
double x,y,z,a;
AnsiString FName;
public: // ユーザー宣言
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

２．cppファイル

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//計算部分
for (x=1 ; x<=100 ; x++){


y=x;
z=x*x;

AnsiString kekka;
kekka=AnsiString(x)+" "+AnsiString(y)+" "+AnsiString(z);
Memo1->Lines->Add(kekka);

}

//計算部分終了
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N1Click(TObject *Sender)
{
//セーブ
SaveDialog1->Execute(); //セーブダイアログを開きます
FName = SaveDialog1->FileName; //セーブダイアログで付けた名前をFName（ユーザー宣言）に格納しています
Memo1->Lines->SaveToFile(FName); //メモからファイルに書き込んでいます。
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
//ロード
OpenDialog1->Execute(); //オープンダイアログを開きます
FName = OpenDialog1->FileName; //オープンダイアログで選択したファイルの名前をFNameに格納します。
Memo1->Lines->LoadFromFile(FName); //ファイルから読み出し、メモに書き出しています。
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------