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

* Remove some warnings

Browse Source 
git-svn-id: trunk@37232 -
This commit is contained in:
michael 2017-09-17 09:32:24 +00:00
parent b8d0c9da03
commit 2c1a7fa1d1
1 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,7 +14,7 @@ unit wmreports;
interface interface
uses uses
Classes, SysUtils, httpdefs, fphttp, fpweb, fpreport, httproute; Classes, SysUtils, httpdefs, fphttp, fpreport, httproute;
Type Type
@ -123,7 +123,7 @@ Var Counter : Integer;
procedure TReportListModule.HandleRequest(ARequest: TRequest; AResponse: TResponse); procedure TReportListModule.HandleRequest(ARequest: TRequest; AResponse: TResponse);
Var Var
O,RO : TJSONObject; O : TJSONObject;
A : TJSONArray; A : TJSONArray;
L : TStrings; L : TStrings;
I : integer; I : integer;
@ -162,9 +162,6 @@ end;
procedure TViewReportModule.HandleRequest(ARequest: TRequest; procedure TViewReportModule.HandleRequest(ARequest: TRequest;
AResponse: TResponse); AResponse: TResponse);
Const
LFN = '/tmp/request.log';
Var Var
FN,TFN : String; FN,TFN : String;
@ -174,15 +171,6 @@ 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
try
if FileExists(LFN) then
LoadFromFile(LFN);
Add(FN+'='+TFN);
SaveToFile(LFN);
finally
Free;
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);