FastReport: RFT Länge ermitteln

[haentschman]

Hallöle...

SOLL:
Ich will ein Child Band entsprechend dem INHALT (Textzeichen = 0) eines RTF Feldes ausblenden.

Das Datenfeld ist gefüllt. Auch bei leerer Anzahl von Zeichen sind ja Steuerzeichen drin...normal.

Bei den fixen RTF Feldern habe ich mir im Delphi procedure gemacht die über die .Lines die Zeichen emittelt, und die eine "VisibleChild" Variable Tue oder False einstellt. Im Report werte ich dann die Variable aus.

Nun habe ich aber RTF Felder in den Detaildaten...da kann ich mit der Variable nix anfangen.

Problem:
Egal welches Event z.B. procedure RichPositionOnAfterData(Sender: TfrxComponent); ich nehme, die RichPosition.RichEdit.Lines sind immer leer. Das Feld hat zu diesem Zeitpunkt den RTF Text zur Verfügung.

Frage:
Wie komme ich an die Lines?

PS: Fastreport Forum ist dürftig und hat keine Antwort.

Danke

[himitsu]

Hat das RichText-Control des FastReport auch sowas, wie ein TRichEdit.PlainText,
womit man steuern kann, wie das Streaming arbeitet?


Bzw. eigentlich .Lines.PlainText, was im Lines.SaveToStream/LoadFromStream steuert, ob beim EM_STREAMIN/EM_STREAMOUT ein SF_TEXT+SFUNICODE oder SF_RTF verwendet wird.
Alles Andere verwendet z.B. EM_GETLINE, WM_GETTEXT und Dergleichen, welches nur auf Text und nicht auf den PlainText (RTF) zugreift.

[haentschman]

Danke...

Zitat:

Hat das RichText-Control des FastReport auch sowas, wie ein Delphi-Referenz durchsuchenTRichEdit.PlainText,

JA. Aber das nützt mir nix, weil ich das RTF als RTF mit Formartierungen anzeige. Ich brauche nur die Anzahl der Zeichen für das Aus/Einblenden des Childs bei leerem Text.

Wie macht man aus einem Feld einen Stream? Meine Versuche die Lines über einen Stream einzulesen...

Delphi-Quellcode:

var
  Stream: TMemoryStream;                                                      
begin
  Stream := TMemoryStream.Create;
  try  
   (<DataPosition."PositionRtf">).SaveToStream(Stream);  // falsch                                                    
   RichPositions.RichEdit.Lines.LoadFromStream(Stream);
...

...wann werden die RichEdit.Lines von FR eingelesen?

[Frickler]

Zitat von haentschman:

Nun habe ich aber RTF Felder in den Detaildaten...da kann ich mit der Variable nix anfangen.

Statt ner Reportvariablen ne Reportfunktion?

Code:

IsEmpty(<DataPosition."PositionRtf">)

[haentschman]

IsEmpty kennt FR nicht. Selbst dann...im Datenfeld (leerer Text = 0 Zeichen) steht "{\rtf1\ansi\ansicpg1252\deff0\nouicompat{\fonttbl{ \f0\fnil\fcharset0 Arial;}} {\*\generator Riched20 10.0.19041}\viewkind4\uc1 \pard\fs18\lang1031\par }" drin.

[alex517]

Hi,
diese Links sollten dir weiterhelfen:

RTF to plain text:
https://www.delphipraxis.net/767804-post12.html

Using Custom Functions in a Report:
https://www.fast-report.com/document..._to_report.htm

Alex

[haentschman]

Danke...

Das Erste kommt mir bekannt vor. So ähnlich habe ich das mit den Variablen gemacht. Custom Functions ... fürs nächste Mal.

Inzwischen habe ich eine FastReport Lösung:

Dummy TfrxRichView im Detail Band

Delphi-Quellcode:

procedure DetailDataOnBeforePrint(Sender: TfrxComponent);
begin
  Dummy.RichEdit.Lines.Clear;
  Dummy.RichEdit.Lines.Add(<DataPosition."TEILRtf">); 
  // Achtung! Lines.Text funktioniert nicht! Da wird der RTF string in die Lines geschrieben. Mit Lines.Add wird der RTF Text als PlainText ausgegeben. 
  Child.Visible := Length(Dummy.RichEdit.Lines.Text) > 2; // Offset für immer einen LineFeed ... warum auch immer. 
end;

Fehlinformation

[mytbo]

Zitat von haentschman:

Ich will ein Child Band entsprechend dem INHALT (Textzeichen = 0) eines RTF Feldes ausblenden.

Delphi-Quellcode:

procedure DetailDataOnBeforePrint(Sender: TfrxComponent);
begin
  Child.Visible := (Dummy.RichEdit.Lines.Count > 0);
end;

Bis bald...
Thomas

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

[Delphi.Narium]

Zitat von haentschman:

  Child.Visible := Length(Dummy.RichEdit.Lines.Text) > 2; // Offset für immer einen LineFeed ... warum auch immer.

Für die Ausgabe von Text werden bei TStrings-Nachfolgern die einzelnen Zeilen "zusammengedaddelt" und am Ende wird immer ein Zeilenumbruch drangepappt, deshalb ist die Länge von Lines.Text (unter Windows) immer mindestens = 2.

Alternative:   Child.Visible := Length(Trim(Dummy.RichEdit.Lines.Text)) = 0;