FastReport String-Teile entfernen

Allgemeines

FastReport beinhaltet aus eine paar String-Methoden, mit dem Text-Teile z.B. löschen kann.

Problem

Auf einem QR-Code-Etikett soll ein Link zu einem Dokument stehen, das auf einem Cloud-Server liegt.

Der Pfad- und Dateiname kommt aus der Datenbank, beinhaltet aber den Pfad zum lokalen Server. Per Code soll jetzt aus dem lokalen Pfad ein Internet-Pfad gemacht werden.

Lösung

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  // Den Pfad aus der Datenbank in ein Hilfs-Memo schreiben:
  memo1.Text := <Test."Protocol">;
  // Die ersten X Zeichen aus dem Pfad entfernen, so dass nur noch der Dateiname im Memo steht:
  Delete( memo1.Text , 1 , 27 ) ;
  // Den Text an das QR-Code-Objekt übergeben:
  QRCode1.Text := 'http://myserver/pfad/' + memo1.Text;
end;

Hinweis

Das QR-Code-Objekt darf in diesem Fall keine direkte Datenbank-Anbindung haben (Eigenschaften "DataSet" und "DataField" müssen leer sein!)

Links

• FastReport Seitenformat

• FastReport Daten, Tabellen und Felder

• FastReport Tabellen der Reports

• FastReport Bands

• FastReport Objekte und Elemente eines Reports

• FastReport: Abhängige Formatierung von Feldern

• FastReport: Standard-Formular-Texte

• FastReport: Steuerung des Report mit Auftragskennzeichen

• FastReport: Summen im Report bilden

• FastReport Farb-Konstanten

• FastReport Namensgebung der Datenbank-Tabellen und -Felder

• FastReport Tipps und Tricks

• Ladeliste/Packliste mit FastReport

• Etikettendruck Allgemeines

• GEVITAS Label-Print Installation

• GEVITAS-Carnet

• Videos zu FastReport