请给段源代码，新建，打开...

[joymachines]

新建，打开，保存，另存为，打印，关闭
用Memo为例
是要象Word那样，所谓标准的使用
主要是对话框的使用，判断内容修改等等。

[chifengwatch]

BCB好象有例子象写字板那样，手上没有BCB，不能告诉你具体的位置

[lvjack]

下面是我写的一个RTF文本编辑器的部分代码
用的是RichEdit，不过和Memo差不多，没有打印
//New
void __fastcall TMainForm::New1Click(TObject *Sender)
{
if(Redit->Modified)
{
switch (Application->MessageBox("Text changed,save it?","New File", MB_YESNOCANCEL|MB_ICONINFORMATION))
{
case IDYES:
//ShowMessage("yes") ;
Save1Click(0);
break;
case IDNO:
break;
default :
//ShowMessage("c") ;
return ;
}
}
Redit->Text="";
MainForm->Caption="Rtf Editor-New";
}
//---------------------------------------------------------------------------

//open
void __fastcall TMainForm::Open1Click(TObject *Sender)
{
if(OpenDlg->Execute())
Redit->Lines->LoadFromFile(OpenDlg->FileName);
}
//---------------------------------------------------------------------------
//Save

void __fastcall TMainForm::Save1Click(TObject *Sender)
{
if(MainForm->Caption=="Rtf Editor-New")
SaveFile();
else
Redit->Lines->SaveToFile(fn);
}
//---------------------------------------------------------------------------
void SaveFile()
{
if(MainForm->SaveDlg->Execute())
{
fn=MainForm->SaveDlg->FileName;
//ShowMessage(ExtractFileExt(fn));
if(ExtractFileExt(fn)==".rtf")
MainForm->Redit->PlainText=false;
else
MainForm->Redit->PlainText=true;
MainForm->Redit->Lines->SaveToFile(fn);
MainForm->Caption="Rtf Editor-" + fn;
}
}

//SaveAs
void __fastcall TMainForm::SaveAs1Click(TObject *Sender)
{
SaveFile();
}
//---------------------------------------------------------------------------

//quit
void __fastcall TMainForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if(Redit->Modified)
{
switch (Application->MessageBox("Text changed,save it?","Exit", MB_YESNOCANCEL|MB_ICONINFORMATION))
{
case IDYES:
//ShowMessage("yes") ;
Save1Click(0);
CanClose = true;
break;
case IDNO:
CanClose = true;
break;
default :
CanClose = false;
}
}
}
//---------------------------------------------------------------------------

[liuhaoyu]

看着简单，不太好做
我也作不好
关注。。。

[joymachines]

up