FastReport und RTF-Datei zur Laufzeit einlesen

[RSF]

Nach langen Suchen habe ich selbst die Lösung für FastReport 4 gefunden.

Delphi-Quellcode:

procedure THauptformular.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
  if Sender.Name='Rich1'then
  Begin
   IF Wartungsvertrag.Label1.Tag = 0 Then
   TfrxRichView(Sender).RichEdit.Lines.LoadFromFile(Label25.Caption+'Vertrag\'+IntToStr(DataModule2.Anlage.FieldByName ('ID_Anlage').AsInteger)+'_V.rtf');
   IF Wartungsvertrag.Label1.Tag = 1 Then
   TfrxRichView(Sender).RichEdit.Lines.LoadFromFile(Label25.Caption+'Vertrag\RLT'+IntToStr(DataModule2.RLT.FieldByName('Autoinc').AsInteger)+'_V.rtf');
  end;
end;