was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

37 Visitors Online


 
...Rtf Text aus einer Ressource in ein TRichEdit laden?
Autor: Thomas Stutz
[ Tip ausdrucken ]  

Tip Bewertung (17):  
     


(*
  Load RTF file from resource:

  You can store any kind of file as a RCDATA resource.
  The following example shows this with an RTF file.

  Create a text file called textres.rc and put the
  following line in it:

  TESTDOC RCDATA "textdoc.rtf"

  Next, compile that using the Borland Resource Compiler,
  which is provided with Delphi.

  brcc32.exe textres.rc
  
  Your next step is to include the compiled resource (.RES) file into
  your executable, which can be done with the {$R} compiler directive.

*)

(*

  Man kann eine beliebige Datei als RCDATA Ressource in eine
  Exe-Datei einbinden.
  Das folgende Beispiel zeigt, wie man einen RTF-Text aus
  einer Ressource lädt und in einem TRichEdit anzeigt.

  Erstelle zuerst eine Datei "textres.rc" mit folgendem Inhalt:

  TESTDOC RCDATA "textdoc.rtf"

  Kompiliere diese mit brcc32.exe:

  brcc32.exe textres.rc
  
  Es wurde nun eine textres.res Datei erzeugt.

*)


implementation

{$R *.dfm}
{$R textres.res}  // <---- your resource file!

procedure TForm1.Button1Click(Sender: TObject);
var
  
rs: TResourceStream;
begin
  
rs := TResourceStream.Create(hinstance, 'TESTDOC', RT_RCDATA);
  try
    
Richedit1.PlainText := False;
    TempStream.Position := 0;
    Richedit1.Lines.LoadFromStream(rs);
  finally
    
rs.Free;
  end;
end;




 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners