Problems Since upgrading to RB6 (GetSupreports)

rbuser

I have just upgraded from RB5 to RB6 And have some problems with my
code:

SubReports := TStringlist.Create.
ppReportFromTreStruct.GetSubReports(SubReports);
MainChild:=TppChildReport(SubReports.Objects[SubReports.IndexOf('MainPage')]);

It worked under RB5 but now I get ListIndexOut of bounds.

Why? What do I have to change?

BR

Magnus

nardmoseley

The GetSubreports method, load a TStrings with the subreport.Caption and
the objects.

Starting with RB 5.5x, the subreport caption contains the datapipeline
username. Here is the code used by subreport.GetCaption.

if (GetDataPipeline = nil) then
Result := UserName + ': ' + 'No Data Pipeline Assigned
else
Result := UserName + ': ' + GetDataPipeline.UserName;