paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 04:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: fix FPC 3.1.1 changes. Issue #32812, patch by Lagunov Aleksey

Browse Source 
git-svn-id: trunk@56824 -
This commit is contained in:
ondrej 2017-12-23 07:14:52 +00:00
parent 37c23339cf
commit 0cfcc26fcf
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2462,7 +2462,11 @@ end;
constructor TlrDetailReport.Create; constructor TlrDetailReport.Create;
begin begin
inherited Create; inherited Create;
{$IF FPC_FULLVERSION >= 30101}
FReportBody:=TStringStream.CreateRaw('');
{$ELSE}
FReportBody:=TStringStream.Create(''); FReportBody:=TStringStream.Create('');
{$ENDIF}
end; end;
destructor TlrDetailReport.Destroy; destructor TlrDetailReport.Destroy;
@ -10064,7 +10068,11 @@ procedure TfrReport.WriteReportXML(Writer: TWriter);
var var
st: TStringStream; st: TStringStream;
begin begin
{$IF FPC_FULLVERSION >= 30101}
st := TStringStream.CreateRaw('');
{$ELSE}
st := TStringStream.Create(''); st := TStringStream.Create('');
{$ENDIF}
SaveToXMLStream(st); SaveToXMLStream(st);
Writer.WriteString(st.DataString); Writer.WriteString(st.DataString);
st.free; st.free;
@ -11894,7 +11902,11 @@ begin
inherited Loaded; inherited Loaded;
if FXMLReport<>'' then if FXMLReport<>'' then
begin begin
{$IF FPC_FULLVERSION >= 30101}
st := TStringStream.CreateRaw(FXMLReport);
{$ELSE}
st := TStringStream.Create(FXMLReport); st := TStringStream.Create(FXMLReport);
{$ENDIF}
LoadFromXMLStream(st); LoadFromXMLStream(st);
st.free; st.free;
FXMLReport := ''; FXMLReport := '';