RTF-Datei als Resource?

[marabu]

So kann das resource script RTF.RC aussehen:

Code:

RTF RCDATA LOADONCALL "c:\temp\faq.rtf"

So wird die binäre Resource erzeugt:

Code:

BRCC32 RTF

Und so kann sie verwendet werden:

Delphi-Quellcode:

{$R RTF.RES RTF.RC}

const
  RN_RTF = 'RTF';

procedure TDemoForm.LoadButtonClick(Sender: TObject);
var
  rs: TResourceStream;
begin
  rs := TResourceStream.Create(0, RN_RTF, RT_RCDATA);
  RichEdit.Lines.LoadFromStream(rs);
  rs.Free;
end;

Grüße vom marabu