paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove some debug statements

Browse Source 
git-svn-id: trunk@37167 -
This commit is contained in:
michael 2017-09-10 15:40:48 +00:00
parent d53f3e0526
commit ce79760e79
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-report/demos/wmreports.pp
View File

@ -172,7 +172,7 @@ begin
Delete(FN,1,1); Delete(FN,1,1);
Delete(FN,1,Pos('/',FN)); // Strip /View Delete(FN,1,Pos('/',FN)); // Strip /View
TFN:=GetTempDir+FN; TFN:=GetTempDir+FN;
With TStringList.Create do { With TStringList.Create do
try try
if FileExists(LFN) then if FileExists(LFN) then
LoadFromFile(LFN); LoadFromFile(LFN);
@ -180,7 +180,7 @@ begin
SaveToFile(LFN); SaveToFile(LFN);
finally finally
Free; Free;
end; end;}
If FileExists(TFN) then If FileExists(TFN) then
begin begin
AResponse.ContentStream:=TFileStream.Create(GetTempDir+FN,fmOpenRead or fmShareDenyWrite); AResponse.ContentStream:=TFileStream.Create(GetTempDir+FN,fmOpenRead or fmShareDenyWrite);
@ -474,7 +474,7 @@ begin
flds:=ARequest.QueryFields flds:=ARequest.QueryFields
else else
flds:=ARequest.ContentFields; flds:=ARequest.ContentFields;
flds.SaveToFile('/tmp/vars.txt'); // flds.SaveToFile('/tmp/vars.txt');
D:=Flds.Values['demo']; D:=Flds.Values['demo'];
if (D='') or (TReportDemoApplication.GetReportClass(D)=Nil) then if (D='') or (TReportDemoApplication.GetReportClass(D)=Nil) then
Raise Exception.CreateFmt('Invalid or empty demo name : "%s"',[D]); Raise Exception.CreateFmt('Invalid or empty demo name : "%s"',[D]);