* Fix some warnings/hints about unused identifiers

git-svn-id: trunk@57842 -
This commit is contained in:
michael 2018-05-08 08:58:13 +00:00
parent be003a0639
commit dedae7d2f1
7 changed files with 6 additions and 7 deletions

View File

@ -541,7 +541,6 @@ Var
I : Integer;
A : TReportObjectArray;
O : TReportObject;
B : TFPReportCustomBand;
P : TPoint;
begin

View File

@ -19,7 +19,7 @@ unit frafpreportcsvdata;
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, EditBtn, StdCtrls, fpjson, db, fpreportdata, fpreportdesignreportdata;
Classes, SysUtils, FileUtil, Forms, Controls, EditBtn, StdCtrls, fpjson, fpreportdata, fpreportdesignreportdata;
type
TFrame = TReportDataConfigFrame;

View File

@ -5,6 +5,7 @@ object ReportDataDisplay: TReportDataDisplay
Width = 327
ClientHeight = 277
ClientWidth = 327
LCLVersion = '1.9.0.0'
TabOrder = 0
DesignLeft = 658
DesignTop = 245

View File

@ -203,8 +203,7 @@ Const
end;
Var
DN,N : TTreeNode;
D : TFPReportData;
N : TTreeNode;
S,A : String;
I,J : integer;
ID : TFPBuiltInExprIdentifierDef;

View File

@ -19,7 +19,7 @@ unit frafpreportdbfdata;
interface
uses
Classes, SysUtils, dbf, FileUtil, Forms, Controls, EditBtn, StdCtrls, fpjson, fpreportdesignreportdata, db;
Classes, SysUtils, dbf, FileUtil, Forms, Controls, EditBtn, StdCtrls, fpjson, fpreportdesignreportdata;
type
TFrame = TReportDataConfigFrame;

View File

@ -20,7 +20,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, StdCtrls, EditBtn, Buttons, ActnList, ValEdit, fpjson, fpreportdesignreportdata, db,
dialogs, fpjsondataset;
dialogs;
type
TFrame = TReportDataConfigFrame ;

View File

@ -19,7 +19,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, EditBtn, StdCtrls, Buttons, ActnList, SynEdit, SynHighlighterSQL,
fpreportdesignreportdata, fpjson, db, sqldb, fpreportdatasqldb, dialogs;
fpreportdesignreportdata, fpjson, sqldb, fpreportdatasqldb, dialogs;
type
TFrame = TReportDataConfigFrame;