RTF-Datei als Resource?

[Pseudemys Nelsoni]

Moin,

kann ich ein RTF-Dokument an eine exe anhängen als Resource? Wenn ja, wie?

[Luckie]

In eine Ressource kannst du alles packen als RC_DATA und dann mit TResourceStream zur Laufzeit auslesen. Beispiele solltest du dazu in der Hilfe finden.

[Pseudemys Nelsoni]

Besten Dank, ich schau mal rein.

[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