RichView DOC

Question

procedure TForm49.btnOpenClick(Sender: TObject);
var
  r: Boolean;
begin
  if not opendialog1.Execute then
    exit;
  RichViewEdit1.Clear;
  RichViewEdit1.Format;
  RichViewEdit1.Update;
  RichViewEdit1.Clear;
  if opendialog1.FilterIndex = 1 then
    r := RichViewEdit1.LoadRTF(opendialog1.FileName)
  else
  begin
    r := RVOfficeConverter1.ImportRV(opendialog1.FileName, RichViewEdit1,
      opendialog1.FilterIndex - 1);
  end;
  if not r then
    Application.MessageBox('错误', '导入时发生错误', 0);
  RichViewEdit1.Format;
  RichViewEdit1.SetFocus;
end;procedure TForm49.btnSaveClick(Sender: TObject);
var
  r: Boolean;
begin
  if not SaveDialog1.Execute then
    exit;
  if SaveDialog1.FilterIndex = 1 then
    // r := RVOfficeConverter1.SaveRTF(SaveDialog1.FileName,False);
    r := RVOfficeConverter1.ExportRTF(SaveDialog1.FileName,
      SaveDialog1.FilterIndex - 2)
  else
  begin
    r := RVOfficeConverter1.ExportRV(SaveDialog1.FileName, RichViewEdit1,
      SaveDialog1.FilterIndex - 2);
    // r :=RVC.ExportRTF(Save.FileName,Save.FilterIndex-2) ;
  end;
  if not r then
    Application.MessageBox('Error', 'Error', 0)
  else
    Application.MessageBox('保存成功！', '提示', 0);
  RichViewEdit1.SetFocus;
end;procedure TForm49.FormCreate(Sender: TObject);
begin
  opendialog1.Filter := RVOfficeConverter1.GetImportFilter;
  SaveDialog1.Filter := RVOfficeConverter1.GetImportFilter;
end;

Answer 1

procedure TForm49.btnOpenClick(Sender: TObject);
var
  r: Boolean;
begin
  if not opendialog1.Execute then
    exit;
  RichViewEdit1.Clear;
  RichViewEdit1.Format;
  RichViewEdit1.Update;
  RichViewEdit1.Clear;
  if opendialog1.FilterIndex = 1 then
    r := RichViewEdit1.LoadRTF(opendialog1.FileName)
  else
  begin
    r := RVOfficeConverter1.ImportRV(opendialog1.FileName, RichViewEdit1,
      opendialog1.FilterIndex - 1);
  end;
  if not r then
    Application.MessageBox('错误', '导入时发生错误', 0);
  RichViewEdit1.Format;
  RichViewEdit1.SetFocus;
end;procedure TForm49.btnSaveClick(Sender: TObject);
var
  r: Boolean;
begin
  if not SaveDialog1.Execute then
    exit;
  if SaveDialog1.FilterIndex = 1 then
    // r := RVOfficeConverter1.SaveRTF(SaveDialog1.FileName,False);
    r := RVOfficeConverter1.ExportRTF(SaveDialog1.FileName,
      SaveDialog1.FilterIndex - 2)
  else
  begin
    r := RVOfficeConverter1.ExportRV(SaveDialog1.FileName, RichViewEdit1,
      SaveDialog1.FilterIndex - 2);
    // r :=RVC.ExportRTF(Save.FileName,Save.FilterIndex-2) ;
  end;
  if not r then
    Application.MessageBox('Error', 'Error', 0)
  else
    Application.MessageBox('保存成功！', '提示', 0);
  RichViewEdit1.SetFocus;
end;procedure TForm49.FormCreate(Sender: TObject);
begin
  opendialog1.Filter := RVOfficeConverter1.GetImportFilter;
  SaveDialog1.Filter := RVOfficeConverter1.GetImportFilter;
end;