paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 15:19:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazreport: cleanup GetDefaultDataSet

Browse Source 
git-svn-id: trunk@36491 -
This commit is contained in:
blikblum 2012-03-31 22:11:46 +00:00
parent 360d1f97d1
commit 430202b49d
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/lazreport/source/lr_class.pas
View File

@ -1488,23 +1488,27 @@ end;
function GetDefaultDataSet: TfrTDataSet;
var
Res: TfrDataset;
FRDataset: TfrDataset;
begin
Result := nil; Res := nil;
FRDataset := nil;
if CurBand <> nil then
begin
case CurBand.Typ of
btMasterData, btReportSummary, btMasterFooter,
btGroupHeader, btGroupFooter:
Res := CurPage.Bands[btMasterData].DataSet;
FRDataset := CurPage.Bands[btMasterData].DataSet;
btDetailData, btDetailFooter:
Res := CurPage.Bands[btDetailData].DataSet;
FRDataset := CurPage.Bands[btDetailData].DataSet;
btSubDetailData, btSubDetailFooter:
Res := CurPage.Bands[btSubDetailData].DataSet;
FRDataset := CurPage.Bands[btSubDetailData].DataSet;
btCrossData, btCrossFooter:
Res := CurPage.Bands[btCrossData].DataSet;
FRDataset := CurPage.Bands[btCrossData].DataSet;
end;
if (Res <> nil) and (Res is TfrDBDataset) then
Result := TfrDBDataSet(Res).GetDataSet;
end;
if FRDataset is TfrDBDataset then
Result := TfrDBDataSet(FRDataset).GetDataSet
else
Result := nil;
end;
function ReadString(Stream: TStream): String;