动态生一个memo，loadFromfile，Edit->Text=memo->Text;
同样返回去超作就可以保存了

最好用Memo从文件读取，并保存
Memo1->Lines->LoadFromFile("c:\\123.txt");打开
Memo1->Lines->SaveToFile("c:\\123.txt");保存

也可以用对话框，不过上述方式简单一点

u.p.

// 参考例子
// .h
//---------------------------------------------------------------------------

#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_dfmfile = "D:\\temp\\form.dfm";
  m_rootcomponent = this;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WriteToStream(TStream *stream)
{
  if (stream==NULL)

    return;

  TWriter* Mywriter = NULL;
  TMemoryStream* memstr = NULL;
  try
  {
    memstr = new TMemoryStream();
    Mywriter = new TWriter(memstr, 4096);
    Mywriter->WriteRootComponent(m_rootcomponent);
    if (Mywriter!=NULL) { delete Mywriter; Mywriter = NULL; }
    if (memstr->Size>0)
    {
      memstr->Position = 0;
      if (TestStreamFormat(memstr)==sofText)
      {
        stream->CopyFrom(memstr, memstr->Size);
      }
      else
      {
        ObjectBinaryToText(memstr, stream);
      }
    }
  }
  __finally
  {
    if (Mywriter!=NULL) { delete Mywriter; Mywriter = NULL; }
    if (memstr!=NULL) { delete memstr; memstr = NULL; }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ReadFromStream(TStream *stream)
{
  if (stream==NULL)

    return;
  for (int i=m_rootcomponent->ComponentCount; i>0; i--)
  {
    delete m_rootcomponent->Components[i-1];
  }

  TReader* Myreader = NULL;
  TMemoryStream* memstr = NULL;
  try
  {
    memstr = new TMemoryStream();
    stream->Position = 0;
    if (stream->Size>0)
    {
      if (TestStreamFormat(stream)==sofText)
      {
        stream->Position = 0;
        ObjectTextToBinary(stream, memstr);
      }
      else
      {
        stream->Position = 0;
        memstr->LoadFromStream(stream);
      }
      memstr->Position = 0;
      Myreader = new TReader(memstr, 4096);
      TComponent *com = Myreader->ReadRootComponent(m_rootcomponent);
      if (com->InheritsFrom(__classid(TPanel)))
      {
        m_rootcomponent->Assign(com);
      }
    }
  }
  __finally
  {
    if (Myreader!=NULL) { delete Myreader; Myreader = NULL; }
    if (memstr!=NULL) { delete memstr; memstr = NULL; }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WriteToFile(const AnsiString& filename)
{
  TFileStream* filestr = NULL;
  try
  {
    filestr = new TFileStream(filename, fmCreate | fmOpenWrite);
    WriteToStream(filestr);
  }
  __finally
  {
    if (filestr!=NULL) { delete filestr; filestr = NULL; }
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ReadFromFile(const AnsiString& filename)
{
  TFileStream* filestr = NULL;
  try
  {
    filestr = new TFileStream(filename, fmOpenRead);
    filestr->Position = 0;
    if (filestr->Size>0)
    {
      ReadFromStream(filestr);
    }
  }
  __finally
  {
    if (filestr!=NULL) { delete filestr; filestr = NULL; }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  ReadFromFile(m_dfmfile);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  WriteToFile(m_dfmfile);
}
//---------------------------------------------------------------------------

//.cpp
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
        TButton *Button1;
        TLabel *Label1;
        TEdit *Edit1;
        TPanel *Panel1;
        TMemo *Memo1;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall FormDestroy(TObject *Sender);
private: // User declarations
        AnsiString  m_dfmfile;
        TComponent* m_rootcomponent;

        void __fastcall ReadFromFile(const AnsiString& filename);
        void __fastcall WriteToFile(const AnsiString& filename);
        void __fastcall ReadFromStream(TStream *stream);
        void __fastcall WriteToStream(TStream *stream);
public: // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

用ini吧

// 去掉
      if (com->InheritsFrom(__classid(TPanel)))
      {
        m_rootcomponent->Assign(com);
      }

万分感谢qiuafa!

使用文件
    使用文件来保存程序的配置，大概是现在不常用到的方法。因为对文件的操作是让很多初学头疼的事，但通过适当的方法，用文件保存数据还是非常方便和灵活的。
    在BCB中使用文件常用的有如下几种方式。
    A、用fopen,fwrite比较传统，但比较灵活。
    B、使用Stream，如FileStream和MemoryStream，优点是比较方便。
    使用文件保存数据我常用的是通过定义一个结构来进行，操作，如以下的结构

    struct {
      char      UserName[10];//用户名
      char      PassWord[16];//用户密码
      int       Level[24];   //用户权限
    }UserInfo;


    这个结构用来保存程序使用者的一些信息，(我随便定义的不一定合理，只是作个例子)如果用注册表和INI文件来保存都很麻烦，可是如果用文件就很简单了。下面我分别用A、B两种方式来保存和读取。
    下面的这两个例子用传统的文件读写方式来读写配置文件

    #include <stdio.h>

    bool __fastcall ReadConfig()
    {
     //读取配置文件
      FILE * ptr;
      AnsiString FileName=ExtractFileName(ParamStr(0))+"UserInfo.Dat";
      ptr = fopen ( FileName.c_str(), "rb" );
      if ( ptr == NULL )
      {
        ShowMessage ( "文件打开失败！" );
        return false;
      }
      fseek ( ptr, 0L, SEEK_END );//定位到文件尾
      if ( ftell ( ptr ) != sizeof ( UserInfo ) )
      {
        //判断文件是否被破坏。
        ShowMessage ( "配置文件被破坏！" );
        fclose ( ptr );
        reutrn false;
      }
      fseek ( ptr, 0L, SEEK_SET );//定位到文件头
      fread ( &UserInfo, sizeof(UserInfo),1,ptr);//读取内容到结构。
      fclose ( ptr );
      return true;
    }

    void __fastcall SaveConfig()
    {
      FILE * ptr;
      AnsiString FileName=ExtractFileName(ParamStr(0))+"UserInfo.Dat";
      ptr = fopen ( FileName.c_str(), "wb" );
      if ( ptr == NULL )
      {
        ShowMessage ( "文件打开失败！" );
        return false;
      }
      fwrite (&UserInfo,sizeof(UserInfo), 1, ptr );//读取内容到结构。
      fclose (ptr);
    }
    这样就完成了一个配置文件的读写。下面在用Stream来处理这个文件。

    bool __fastcall ReadConfig ()
    {
    //用流来读取，我用内存流是因为我的个人习惯，其实用文件流也是一样的。
    TMemoryStream * readStream = new TMemoryStream ();
    AnsiString FileName = ExtractFileName(ParamStr(0))+"UserInfo.Dat";
    readStream->LoadFromFile ( FileName );
    if(readStream->Size!=sizeof( UserInfo ) )
      {
        ShowMessage ( "配置文件被破坏！" );
        delete readStream;
        reutrn false;
      }
      readStream->Seek ( 0, soFromBeginning );//定位到文件头
      readStream->ReadBuffer ( &UserInfo, sizeof ( UserInfo ));
      //读取文件内容到结构
      delete readStream;
    }

    void __fastcall SaveConfig ()
    {
     TMemoryStream * readStream = new TMemoryStream ();
     AnsiString FileName=ExtractFileName(ParamStr(0))+"UserInfo.Dat";
     readStream->WriteBuffer(&UserInfo, sizeof ( UserInfo ) );
     //将结构写入流
     readStream->Seek ( 0, soFromBeginning );//定位到头
     readStream->SaveToFile ( FileName );
     delete readStream;
    }
    这样完成了用流来读写数据，通过对这两种方法的比较，用流方便一些。用文件来保存数据的缺点就是有些繁琐，而且文件容易被删除，但它的优点就可以保存大量、复杂的数据，这时使用注册表和INI文件所无法完成的。

文章最初来自哪里我已经忘了好像是C++Builder研究，这篇文章的题目叫程序配置信息的保存

对于配置信息的保存,现代程序一般都是读写注册表,绿色软件读写.ini文件比较好,看看
帮助中关于TIniFile的介绍和example.
当然如楼上所说,ini文件对于大量和复杂的数据不太适合,要知道文件读写是学一门语言最起码的训练.

谢谢大家!对于我这样的初学者,大家给了我莫大的帮助!本来枯燥的学习,现在来看大家讨论,变的生动了!