Как из RXRichEdit сохранить в RTF формате?

Материал из DRKB

Как из RXRichEdit сохранить в RTF формате?[править | править код]

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TFileStream;
begin
  t := TFileStream.Create('c:\myfilename.txt', fmCreate or fmOpenWrite);
  try
    t.Size := 0;
    RxRichEdit1.Lines.SaveToStream(t);
  finally
    t.Free;
  end;
end;


Author: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00570