FastReport Script

[EarlyBird]

Hallo,
ich habe ein eigenartiges Problem mit einem FastReport Script.

Delphi-Quellcode:

procedure Rich1OnAfterData(Sender: TfrxComponent);
var i: integer;
begin
  for i := TfrxRichView(Sender).richedit.Lines.Count - 1 downto 0 do
  begin
                               
    if  TfrxRichView(Sender).richedit.lines.strings[i] = '' then
       TfrxRichView(Sender).richedit.lines.delete(i) ;
  end;   
end;

procedure Memo1OnAfterData(Sender: TfrxComponent);
var i: integer;
begin
  for i := TfrxMemoView(Sender).Lines.Count - 1 downto 0 do
  begin
                               
    if  TfrxMemoView(Sender).lines.strings[i] = '' then
       TfrxMemoView(Sender).lines.delete(i) ;
  end;
end;

Ich möchte in einem RichView leere Zeilen löschen.
Das hat bisher unter Delphi 2007 auch Problemlos funktioniert.
Aber in DelphiXE löscht mir das Script immer alle Zeilen.
Auch die Zeilen in den Text steht.
Das gleiche Script für ein MemoView funktioniert auch weiterhin.
Ich habe schon Kontakt mit Fastreport leider bisher ohne Erfolg.
Neu installieren von Fastreport brachte leider auch nix.
Bei FastReport kann man das Problem auch nicht nachvollziehen.
Da funktioniert das Script wie es soll.

Darum nun meine bitte an Euch:
Könnt Ihr mal prüfen ob das Script bei Euch funktioniert.
Im Anhang ist eine Test.fr3 Datei mit dem Script

DelphiXE FastReport 4.12 oder höher

Besten Dank

[Lemmy]

Hi,

Delphi 7 FR 4 (ich glaube 4.12) kein Problem
Delphi XE FR 4: Vorschau geht nicht, d.h. da ist das RV leer, Ausführung geht, d.h. da sind nur die leeren Zeilen weg...

Grüße

[Union]

Delphi XE2, fr 4.12 funktioniert nicht. Die Daten liegen nicht in Lines sondern in Text.Lines. Von draussen kommt man ran, aber die Property Text ist innerhalb fr nicht verfügbar.

Delphi-Quellcode:

procedure TForm6.FormCreate(Sender: TObject);
var
  Rv : TFrxRichView;
begin
  Rv := TfrxRichView(frxReport1.FindComponent('Rich1'));
  ShowMessage(Rv.RichEdit.Text) // Hier wird der richtige Text ausgegeben
end;

[EarlyBird]

Zitat von Union:

Delphi XE2, fr 4.12 funktioniert nicht. Die Daten liegen nicht in Lines sondern in Text.Lines. Von draussen kommt man ran, aber die Property Text ist innerhalb fr nicht verfügbar.

Delphi-Quellcode:

procedure TForm6.FormCreate(Sender: TObject);
var
  Rv : TFrxRichView;
begin
  Rv := TfrxRichView(frxReport1.FindComponent('Rich1'));
  ShowMessage(Rv.RichEdit.Text) // Hier wird der richtige Text ausgegeben
end;

Vielen Dank für die Info
Werde das mal an FR weiterleiten
Mal sehen was die dazu sagen.

Und vielen Dank für die Rückmeldungen
Nach dem ganzen hin und her mit FR wollte ich schon mein ganzes System neu installieren