FastReport String-Teile entfernen

1 Allgemeines

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

2 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.

3 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!)