rveditdemo.dpr

与Action相结合,可以解决中文件显示乱码

program RVEditDemo;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  CPFrm in 'CPFrm.pas' {frmCP},
  PropFrm in 'PropFrm.pas' {frmProp},
  ListFrm in 'ListFrm.pas' {frmList},
  PreviewFrm in 'PreviewFrm.pas' {frmPreview},
  RVUndoStr in 'RVUndoStr.pas',
  OptionsFrm in 'OptionsFrm.pas' {frmOptions};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'RichViewEdit Demo';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TfrmCP, frmCP);
  Application.CreateForm(TfrmProp, frmProp);
  Application.CreateForm(TfrmList, frmList);
  Application.CreateForm(TfrmPreview, frmPreview);
  Application.CreateForm(TfrmOptions, frmOptions);
  Application.Run;
end.