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