paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 17:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove use of continue

Browse Source 
git-svn-id: trunk@37504 -
This commit is contained in:
michael 2017-10-22 10:02:25 +00:00
parent a171ad319e
commit 89db233a0e
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
packages/fcl-report/src/fpreport.pp
View File

@ -10783,26 +10783,26 @@ begin
Exclude(overFlowActions,oaSingleBand);
lRTBand := CommonRuntimeBandProcessing(lBand);
if lRTBand=Nil then
begin
lBand := lBand.ChildBand;
Continue;
end;
Result := True;
lHandledBands.Add(lRTBand);
UpdateSpaceRemaining(lRTBand, aBand.NeedsUpdateYPos);
if NoSpaceRemaining then
overFlowActions := HandleOverflowedBands(lHandledBands, aBand, lRTBand);
if (oaBandWithChilds in overFlowActions) then
lBand:=Nil // force exit from while
lBand := lBand.ChildBand
else
begin
if Assigned(lRTBand) then
aBand.AfterPrintBand(Self, lRTBand);
if not (oaSingleBand in overFlowActions) then
lBand := lBand.ChildBand;
end;
if (overFlowActions<>[]) then
Report.FRTIsOverflowed := True;
begin
Result := True;
lHandledBands.Add(lRTBand);
UpdateSpaceRemaining(lRTBand, aBand.NeedsUpdateYPos);
if NoSpaceRemaining then
overFlowActions := HandleOverflowedBands(lHandledBands, aBand, lRTBand);
if (oaBandWithChilds in overFlowActions) then
lBand:=Nil // force exit from while
else
begin
if Assigned(lRTBand) then
aBand.AfterPrintBand(Self, lRTBand);
if not (oaSingleBand in overFlowActions) then
lBand := lBand.ChildBand;
end;
if (overFlowActions<>[]) then
Report.FRTIsOverflowed := True;
end;
end; { while Assigned(lBand) }
Until not (oaBandWithChilds in OverFlowActions);
if (aBand is TFPReportCustomGroupHeaderBand) and