paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert r56717 #1939dcdaa7, requires FPC trunk. "LazReport: Fix error on loading detail reports. Issue #32812"

Browse Source 
git-svn-id: trunk@56720 -
This commit is contained in:
juha 2017-12-14 14:02:35 +00:00
parent d997abd3df
commit a2ec98b383
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2462,7 +2462,7 @@ end;
constructor TlrDetailReport.Create;
begin
inherited Create;
FReportBody:=TStringStream.CreateRaw('');
FReportBody:=TStringStream.Create('');
end;
destructor TlrDetailReport.Destroy;
@ -2476,7 +2476,7 @@ begin
FReportName:=XML.GetValue(Path+'ReportName/Value', '');
FReportDescription:=XML.GetValue(Path+'ReportDescription/Value', '');
FReportBody.Size:=0;
TStringStream(FReportBody).WriteAnsiString(XML.GetValue(Path+'ReportBody/Value', ''));
TStringStream(FReportBody).WriteString(XML.GetValue(Path+'ReportBody/Value', ''));
end;
procedure TlrDetailReport.SaveToXML(XML: TLrXMLConfig; const Path: String);
@ -10064,7 +10064,7 @@ procedure TfrReport.WriteReportXML(Writer: TWriter);
var
st: TStringStream;
begin
st := TStringStream.CreateRaw('');
st := TStringStream.Create('');
SaveToXMLStream(st);
Writer.WriteString(st.DataString);
st.free;
@ -11894,7 +11894,7 @@ begin
inherited Loaded;
if FXMLReport<>'' then
begin
st := TStringStream.CreateRaw(FXMLReport);
st := TStringStream.Create(FXMLReport);
LoadFromXMLStream(st);
st.free;
FXMLReport := '';

1
components/lazreport/source/lr_desgn.pas
View File

@ -8016,6 +8016,7 @@ begin
FSaveReportEvent:=frDesignerComp.OnSaveReport;
frDesignerComp.OnSaveReport:=@DoSaveReportEvent;
//FDetailReport:=TStringStream.Create(Trim(FEditView.DetailReport.Text));
try
FDetailRrep.ReportBody.Position:=0;
if FDetailRrep.ReportBody.Size > 0 then