Mit EkRtf Report aus Ado erstellen

[Schokohase]

Also ich hab mit dieser Komponente noch nie gearbeitet, aber ich würde darauf wetten, dass sich dieses rechnungen in \Scan(rechnungen)\ sich nicht auf eine bestehende Tabelle in der Datenbank bezieht, sondern auf den DataSet-Namen, den man an die Komponente übergibt.

Im Beispiel auf der Website findet man eine TADOTable mit dem Namen Customers und diese Koponente wird auch übergeben:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  (* check report template file *)
  if not FileExists(EkRTF1.InFile) then
  begin
    if RTFDialog.Execute then begin
       EkRTF1.InFile := RTFDialog.FileName;
    end else exit;
  end;
  (* create report *)
  EkRTF1.ClearVars;
  EkRTF1.CreateVar('database_name',dbname);
  EkRtf1.ExecuteOpen([Customers],SW_SHOW); // Hier
end;

Im RTF-Template wird sich dann auch genau darauf bezogen:

Code:

\Scan(Customers)\
\Customers.CustomerID\ \Customers.CompanyName\ \Customers.Country\
\EndScan\

Und die Dokumentation sagt das Gleiche:

Zitat:

All records of a dataset may be inserted in a document as a table rows or in any free form. For this use keywords \Scan(DatasetName)\ and \Endscan\. Inside cycle scan-endscan may be located block of text with data fields, variables and constants, for example:

Quelle: https://www.128byte.ru/index.php?id=29