function TfrxReportPage.FindBand(Band: TfrxBandClass): TfrxBand;

Ant??nio Gomes

In the function below happens the error of 'access violation' after opening 'fr3' the second time.


function TfrxReportPage.FindBand(Band: TfrxBandClass): TfrxBand;
var
i: Integer;
begin
Result := nil;
try
for i := 0 to FObjects.Count - 1 do
if TObject(FObjects) is Band then
begin
Result := FObjects;
break;
end;
except

end;
end;

To solve, I put a Try Except - horrible!

Ant??nio Gomes

the problem is TfrxOverlay with heigth grand than page... i dont understand... I reduced the band "overlay" and came back to work.,,.