FastReport: RFT Länge ermitteln

[haentschman]

Danke...

(Dummy.RichEdit.Lines.Count > 0); Funktioniert nicht. Weil 5 Lines keinen Inhalt haben können...sondern nur LineFeeds. Ich will aber die Zeile ausgeblendet haben bei leerem -> Text = '' Lines.

PS:
Meine Variante von gestern funktioniert nicht, weil Fastreport selbst im "FastScript" Bugs hat! Oder kann mir das jemand logisch erklären? Siehe Bilder!

Erklärung:
...der Block soll entscheiden ob das Child2 ausgeblendet wird. Der Code soll in der letzten Zeile, was auch die erste Zeile ist, wenn kein Text drin ist sondern nur LineFeeds, die Zeile entfernen. Dann ist Lines.Count = 0.
1. Breakpoints rot
2. die gelbe Linie ist die aktuelle Zeile
3. Bild 1 vor Ausführung, Bild nach der Ausführung Er darf die Bedingung nicht auführen weil Bedingung = False ist!

Fehler im Debugger FastReport:
1. niemals im Debugger RichEdit.Lines.Text (habe ich gestern kurzzeitig gesehen...daher mein übereiltes Statement von gestern )
2. Ablaufsteuerung funktioniert nicht

...so kann ich nicht arbeiten. Oder was habe ich übersehen?

PS: Mail an FastReport Support ist raus.

[mytbo]

Zitat von haentschman:

(Dummy.RichEdit.Lines.Count > 0); Funktioniert nicht. Weil 5 Lines keinen Inhalt haben können...sondern nur LineFeeds.

Delphi-Quellcode:

procedure DetailDataOnBeforePrint(Sender: TfrxComponent);
var
  i: Integer;
  isVisible: Boolean;
begin
  isVisible := False;
  for i := 0 to Dummy.RichEdit.Lines.Count - 1 do
  begin
    isVisible := (Dummy.RichEdit.Lines[i] <> '');
    if isVisible then Break;
  end;

  Child.Visible := isVisible;
end;

Optimieren darfst du selbst.

Bis bald...
Thomas