jkrieger.de/ unit rtf10: Beispiel

unit rtf10: Beispiel

  RTFOpen('c:\temp\test.rtf', 'Testdatei', 'Jan Krieger');
  RTFWriteLn('Hier steht Text ...');
  RTFSetAlign(alCenter);
  RTFSetFontStyle([italic,bold,underlined,sstrike]);
  RTFSetFontSize(20);
  RTFWriteLn('das geht auch größer und zentriert');
  RTFResetStyles;
  RTFLineBreak;RTFLineBreak;
  RTFWriteTab;
  RTFWrite('(das war total unleserlich)');
  RTFClose;

Ergibt als Ausgabe eine datei, die Word so darstellt:

printable version of: http://www.jkrieger.de/programming/delphi/rtf_test.html
last updated: 16.10.2005
Contents/Design: © 2000-2005 by Jan Krieger