Wednesday, May 16, 2007

Nejprve tedy vytvořte a zkompilujte resources soubor s tímto obsahem:
TESTDOC RCDATA "test.rtf"
Soubor test.rtf pochopitelně musí být při kompilaci dostupný, takže si vytvořte nějaký takový testovací dokument, třeba ve WordPadu či Wordu. Pak jej již obvyklým způsobem přidáme do našeho projektu:
.
.
.
implementation

{$R *.DFM}
{$R textres.res}
.
.
.
A zbývá nám hlavní část: zobrazit dokument uživateli. K tomu použijeme jak jinak než komponentu RichEdit, kterou umístěte na formulář. Dokument pak do ní načteme tímto způsobem:
procedure TForm1.Button1Click(Sender: TObject);
var
rs : TResourceStream;
begin
rs := TResourceStream.Create(hinstance, 'TESTDOC', RT_RCDATA);
try
Richedit1.PlainText := False;
Richedit1.Lines.LoadFromStream(rs);
finally
rs.Free;
end;
end;