rtf zu plaintext (ohne TRichEdit)

[samso]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, Classes, uRTFConverter;

var
  test: TBytesStream;
  RTF2Plain: TRTF2PlainConverter;

begin
  test := nil;
  RTF2Plain := nil;
  try
    test := TBytesStream.Create;
    test.LoadFromFile('Dokument.rtf');
    RTF2Plain := TRTF2PlainConverter.Create;
    RTF2Plain.ReadData(test.Bytes);
    Write(RTF2Plain.Plaintext);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  test.Free;
  RTF2Plain.Free;
end.