RIGHT:[[Delphi]]
**ユーザー定義のリソースを使用する [#e8c35b3e]
[[リソースにユーザー定義のデータを追加する]]で追加したリソースをプログラムから使用するには次のようにする。
[[ユーザー定義のリソースを追加する>Delphi/ユーザー定義のリソースを追加する]]で追加したリソースをプログラムから使用するには次のようにする。
リソースからRTF文章を読み取り、RichEditコンポーネントに表示してみる。
+ {$R ファイル名} をソースに追加し、リソースを実行ファイルにリンクする。
+ TResourceStreamのインスタンスを作成する。
第2引数にはリソース名を、第3引数にはリソースタイプ名を指定する。
+RichEdit1.Lines.LoadFromStream で RTF文章が表示される
サンプルコード
{$R sample.res}
procedure DispRichText(ResourceName: String);
var
Stream: TResourceStream;
begin
Stream := TResourceStream.Create(hInstance, ResourceName, 'RTF');
try
RichEdit1.Lines.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;