FastReport: RFT Länge ermitteln

[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