如何将输出结果保存为文本？

[ww425]

请教：1。如何在启动程序后EDIT组件中显示的内容是从文本中读出的数据？
2。这次修改好的数据如何再保存到文本中？

[constantine]

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

[cccp2004]

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

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

[qiuafa]

u.p.

[qiuafa]

// 参考例子
// .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);
}
//---------------------------------------------------------------------------

[qiuafa]

//.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

[dragonki]

用ini吧

[qiuafa]

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

[ww425]

万分感谢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研究，这篇文章的题目叫程序配置信息的保存

[binbin]

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

[ww425]

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