Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Файловая система \ Ресурсы(RES-файлы) \ Загрузить RTF текст из файла ресурса в TRichEdit

Загрузить RTF текст из файла ресурса в TRichEdit

(*
   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 ladt 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;

Название: Загрузить RTF текст из файла ресурса в TRichEdit
Дата публикации: 2004-06-14 (3536 Прочтено)

 
 

 

Page generation 0.038 seconds