function TfrxReportPage.FindBand(Band: TfrxBandClass): TfrxBand;
Ant??nio Gomes
brasil
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!
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!
Comments