Fastreport 4 und uses ?!

[DevStar]

Hallo epex,

das geht sehr gut mit FastReport.

Ich habe einen FR-Bericht der bestimmte Konstanten und Variablen braucht.
Bei den Konstanten ist Text hinterlegt.
Es gibt eine Funktion, die den String dann als Result zurückgibt.

Die Unit sieht so aus (heißt noch nichtmal 'globale_unit.pas', sondern 'globale_unit.txt', damit man die Unit leicht zum Abändern mit Notepad öffnen kann:

Delphi-Quellcode:

Program Bezeichnungen;

const
  KiGa = 'Kindergarten';

function sRichtigerNamen (sBereich: string) : string;
var
  sName : string;

begin
  ...

  Result := sName;
end;

begin
end.

Diese Unit kannst Du nun in deinem Report aufrufen. Wichtig ist das oben "Program" steht und der code nun im Report folgendermaßen aufgerufen wird:

Delphi-Quellcode:

Program MeinBericht;

uses
  'c:\globale_unit.txt';

begin
  Memo1.text := sRichtigerName (<qryDatenbank."Kunde">);
  // Aufruf der Funktion aus der Global-Unit.
end.

Nochwas: Bei dem "Delphi-Code" von FastReport handelt es sich nicht um Delphi, sondern um Object-Pascal, d.h. wenn Deine Units in ObjectPascal geschrieben sind, funktionieren Sie Problemlos in FastReport.
Viel Erfolg !!
DevStar