Convert ASCII -> RTF  

Send By: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Date: 03/08/99

Tip accessed 524 times

 


  • Create a new form and add a TRichEdit on it
  • Add two TEdit and name it AsciiFile and RTFFile;
  • Add a TButton, (Button1)
  • Put the following code in the OnClick event handler of Button1:


     procedure TForm1.Button1Click(Sender: TObject);
     begin
       with RichEdit1 do begin
         PlainText:=True;
         Lines.LoadFromFile(AsciiFile.Text);
         PlainText:=False;
         Lines.SaveToFile(RTFFile.Text);
       end;
     end;