有点不好意思,但是还是困扰2天了关于TFileStream解决方法

有点不好意思,但是还是困扰2天了关于TFileStream
我要保存RichEdit的内容用lines.savertostream   我要使用Tfilestream
但是老是失败
那位大哥指点一下吧

[解决办法]
// 写文件
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TFileStream *fs;
String strFileName( "C:\\ccrun\\123.rtf ");
if(FileExists(strFileName))
fs = new TFileStream(strFileName, fmOpenReadWrite);
else
fs = new TFileStream(strFileName, fmCreate);

RichEdit1-> Lines-> SaveToStream(fs);

delete fs;
}
//---------------------------------------
// 读文件
void __fastcall TForm1::Button2Click(TObject *Sender)
{
RichEdit1-> Clear();

TFileStream *fs;
String strFileName( "C:\\ccrun\\123.rtf ");
if(FileExists(strFileName))
{
fs = new TFileStream(strFileName, fmOpenRead);
fs-> Position = 0;
RichEdit1-> Lines-> LoadFromStream(fs);
delete fs;
}
}