PDF-Datei aus dem Inhalt eines VirtualStringTree erzeugen

[Jens Hartmann]

Genial,

jetzt funktioniert es. Jetzt habe ich das auch verstanden. Jetzt brauche ich nur noch diverse Ereignisse und Farben in der CSS-Datei eintragen und schon geht das. Geil, Danke....

Hier mal die Lösung....

Delphi-Quellcode:

  for i := 0 to QryHTML.RecordCount do
    begin
    slHTML.Add('<tr class="' + QryHTML.FieldByName('Ereignis').AsString + '">');
    slHTML.Add('<td>');
    slHTML.Add(IntToStr(QryHTML.FieldByName('ID').AsInteger));
    slHTML.Add('</td>');
    slHTML.Add('<td>');
    slHTML.Add(IntToStr(QryHTML.FieldByName('LfdNr').AsInteger));
    slHTML.Add('</td>');
    slHTML.Add('<td>');
    slHTML.Add(DateToStr(QryHTML.FieldByName('Datum').AsDateTime));
    slHTML.Add('</td>');
    slHTML.Add('<td>');
    slHTML.Add(DateToStr(QryHTML.FieldByName('Uhrzeit').AsDateTime));
    slHTML.Add('</td>');
    slHTML.Add('<td>');
    slHTML.Add(QryHTML.FieldByName('Ereignis').AsString);
    slHTML.Add('</td>');
    slHTML.Add('<td>');
    slHTML.Add(QryHTML.FieldByName('Teilnehmer').AsString);
    slHTML.Add('</td>');
    slHTML.Add('<td>');
    slHTML.Add(QryHTML.FieldByName('Bereich').AsString);
    slHTML.Add('</td>');
    slHTML.Add('</tr>');
    QryHTML.Next;
    end;

Gruß Jens