Fastreport, Variable Fontgrösse abhängig von Anzahl der Buchstaben

[Luckner]

Hier meine Lösung, die funktioniert:

Delphi-Quellcode:

procedure Doppel7OnBeforePrint(Sender: TfrxComponent);
var
  iFontSize: Integer;  
begin
  if Length(<Doppel7>) > 10 then      
    iFontSize := 8            
  else                                                     
    iFontSize := 10;                                      

  Doppel7.Font.Size := iFontSize;                                            
end;

Danke für die Tipps.

Gruß, Luckner