paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 22:29:24 +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,Pos('/',FN)); // Strip /View
TFN:=GetTempDir+FN;
With TStringList.Create do
{ With TStringList.Create do
try
if FileExists(LFN) then
LoadFromFile(LFN);
@ -180,7 +180,7 @@ begin
SaveToFile(LFN);
finally
Free;
end;
end;}
If FileExists(TFN) then
begin
AResponse.ContentStream:=TFileStream.Create(GetTempDir+FN,fmOpenRead or fmShareDenyWrite);
@ -474,7 +474,7 @@ begin
flds:=ARequest.QueryFields
else
flds:=ARequest.ContentFields;
flds.SaveToFile('/tmp/vars.txt');
// flds.SaveToFile('/tmp/vars.txt');
D:=Flds.Values['demo'];
if (D='') or (TReportDemoApplication.GetReportClass(D)=Nil) then
Raise Exception.CreateFmt('Invalid or empty demo name : "%s"',[D]);