diff --git a/components/IndustrialStuff/source/AdvLed.pas b/components/IndustrialStuff/source/AdvLed.pas index 3f37e4d0e8..23dbfba581 100644 --- a/components/IndustrialStuff/source/AdvLed.pas +++ b/components/IndustrialStuff/source/AdvLed.pas @@ -19,7 +19,7 @@ unit AdvLed; interface uses - LCLIntf, LCLType,LResources,Classes, Types, ExtCtrls, Controls, Graphics; + LCLType, Classes, ExtCtrls, Controls, Graphics; type diff --git a/components/IndustrialStuff/source/indcyClasses.pas b/components/IndustrialStuff/source/indcyClasses.pas index d955a7b97a..bcd58010b4 100644 --- a/components/IndustrialStuff/source/indcyClasses.pas +++ b/components/IndustrialStuff/source/indcyClasses.pas @@ -49,7 +49,7 @@ unit indcyClasses; interface uses - LCLIntf, LCLType, Classes, Forms, Graphics, Math, Controls, ExtCtrls, SysUtils, + LCLIntf, Classes, Graphics, Controls, SysUtils, indcyTypes, indcyGraphics; type diff --git a/components/codetools/ide/codyregistration.pas b/components/codetools/ide/codyregistration.pas index 85ca297420..4ff2e742e4 100644 --- a/components/codetools/ide/codyregistration.pas +++ b/components/codetools/ide/codyregistration.pas @@ -36,8 +36,7 @@ uses CodeToolManager, CodyStrConsts, CodyUtils, CodyCtrls, CodyOpts, PPUListDlg, AddAssignMethodDlg, AddWithBlockDlg, - CodyNodeInfoDlg, CodyFrm, DeclareVarDlg, CodyCopyDeclaration, - CodyIdentifiersDlg, CodyMiscOptsFrame; + CodyNodeInfoDlg, CodyFrm, DeclareVarDlg, CodyIdentifiersDlg, CodyMiscOptsFrame; procedure Register; diff --git a/components/customdrawn/customdrawn_wince.pas b/components/customdrawn/customdrawn_wince.pas index 607ebc59f3..535fb3d7f9 100644 --- a/components/customdrawn/customdrawn_wince.pas +++ b/components/customdrawn/customdrawn_wince.pas @@ -164,7 +164,6 @@ procedure TCDDrawerWinCE.DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint; ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx); var lHalf, lSquareHalf, lSquareHeight: Integer; - lColor: TColor; begin lHalf := ASize.cy div 2; lSquareHalf := GetMeasures(TCDCHECKBOX_SQUARE_HALF_HEIGHT); diff --git a/components/customdrawn/customdrawnextras.pas b/components/customdrawn/customdrawnextras.pas index 696c14794b..5def3fa331 100644 --- a/components/customdrawn/customdrawnextras.pas +++ b/components/customdrawn/customdrawnextras.pas @@ -430,8 +430,6 @@ procedure TCDPageControlEditor.ExecuteVerb(Index: integer); var NewPage: TCDTabSheet; Hook: TPropertyEditorHook; - PageComponent: TPersistent; - OldPage: longint; lPageName: String; begin if not GetHook(Hook) then exit; diff --git a/components/customform/custforms.pp b/components/customform/custforms.pp index a268aadee0..10de9fce0f 100644 --- a/components/customform/custforms.pp +++ b/components/customform/custforms.pp @@ -81,7 +81,7 @@ Type private FFormDescr: TCustomFormDescr; Public - Constructor Create(ADescr : TCustomFormDescr); + Constructor Create(ADescr : TCustomFormDescr); overload; Property FormDescr : TCustomFormDescr Read FFormDescr; Function GetLocalizedName : String; override; Function GetLocalizedDescription : String; override; diff --git a/components/ideintf/maskpropedit.pas b/components/ideintf/maskpropedit.pas index 9e30023f01..d03766b742 100644 --- a/components/ideintf/maskpropedit.pas +++ b/components/ideintf/maskpropedit.pas @@ -18,7 +18,7 @@ unit MaskPropEdit; interface uses - Classes, SysUtils, MaskUtils, Forms, Controls, Graphics, Dialogs, + Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons, ExtCtrls, FileUtil, MaskEdit, LazIDEIntf, PropEdits, ComponentEditors, ObjInspStrConsts, ButtonPanel; diff --git a/components/jcf2/Process/Transform/AddBeginEnd.pas b/components/jcf2/Process/Transform/AddBeginEnd.pas index 091b3ac5a7..73804faa3a 100644 --- a/components/jcf2/Process/Transform/AddBeginEnd.pas +++ b/components/jcf2/Process/Transform/AddBeginEnd.pas @@ -129,7 +129,7 @@ function SafeToRemoveBeginEnd(const pcNode: TParseTreeNode): Boolean; const { if there is an if stament with no else case immediately hereunder, should find it by this depth } - IMMEDIATE_IF_DEPTH = 4; + //IMMEDIATE_IF_DEPTH = 4; MAX_IF_CLIMB = 5; var lcParent: TParseTreeNode; diff --git a/components/jcf2/Ui/Settings/frAsm.pas b/components/jcf2/Ui/Settings/frAsm.pas index c4ea6bd57e..427bf32b5e 100644 --- a/components/jcf2/Ui/Settings/frAsm.pas +++ b/components/jcf2/Ui/Settings/frAsm.pas @@ -68,7 +68,7 @@ uses { jcf } JcfSettings, jcfuiconsts, { local } - Capitalisation, SettingsTypes, SetAsm; + SettingsTypes, SetAsm; procedure TfAsm.FrameResize(Sender:TObject); begin diff --git a/components/jcf2/Ui/Settings/frPreProcessor.pas b/components/jcf2/Ui/Settings/frPreProcessor.pas index ff9188e0a8..66199ae84c 100644 --- a/components/jcf2/Ui/Settings/frPreProcessor.pas +++ b/components/jcf2/Ui/Settings/frPreProcessor.pas @@ -31,8 +31,7 @@ interface { preprocessor symbols } uses - Classes, Controls, Forms, StdCtrls, - IDEOptionsIntf; + Classes, StdCtrls, IDEOptionsIntf; type @@ -61,7 +60,7 @@ implementation {$R *.lfm} uses - JcfHelp, JcfSettings, jcfuiconsts; + JcfSettings, jcfuiconsts; constructor TfPreProcessor.Create(AOwner: TComponent); begin diff --git a/converter/usedunits.pas b/converter/usedunits.pas index e41cf1333e..630ac7af4e 100644 --- a/converter/usedunits.pas +++ b/converter/usedunits.pas @@ -61,7 +61,7 @@ type fUnitsToFixCase: TStringToStringTree;// Like rename but done for every target. fUnitsToComment: TStringList; // List of units to be commented. fMissingUnits: TStringList; // Units not found in search path. - function FindMissingUnits(AUnitUpdater: TStringMapUpdater): boolean; + function FindMissingUnits: boolean; procedure ToBeRenamedOrRemoved(AOldName, ANewName: string); procedure FindReplacement(AUnitUpdater: TStringMapUpdater; AMapToEdit: TStringToStringTree); @@ -210,7 +210,7 @@ begin inherited Destroy; end; -function TUsedUnits.FindMissingUnits(AUnitUpdater: TStringMapUpdater): boolean; +function TUsedUnits.FindMissingUnits: boolean; var UsesNode: TCodeTreeNode; InAtom, UnitNameAtom: TAtomPosition; @@ -595,8 +595,8 @@ begin if fCTLink.Settings.UnitsReplaceMode=rlInteractive then MapToEdit:=TStringToStringTree.Create(false); fCTLink.CodeTool.BuildTree(lsrEnd); - if not (fMainUsedUnits.FindMissingUnits(UnitUpdater) and - fImplUsedUnits.FindMissingUnits(UnitUpdater)) then + if not (fMainUsedUnits.FindMissingUnits and + fImplUsedUnits.FindMissingUnits) then exit(mrCancel); // Find replacements for missing units from settings. diff --git a/debugger/inspectdlg.pas b/debugger/inspectdlg.pas index 01ce947a83..ea3a09c8d8 100644 --- a/debugger/inspectdlg.pas +++ b/debugger/inspectdlg.pas @@ -104,7 +104,7 @@ type protected function ColSizeGetter(AColId: Integer; var ASize: Integer): Boolean; procedure ColSizeSetter(AColId: Integer; ASize: Integer); - procedure InternalExecute(const AExpression: ansistring; ARepeatCount: Integer = -1); + procedure InternalExecute(const AExpression: ansistring); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -790,7 +790,7 @@ begin inherited Destroy; end; -procedure TIDEInspectDlg.InternalExecute(const AExpression: ansistring; ARepeatCount: Integer); +procedure TIDEInspectDlg.InternalExecute(const AExpression: ansistring); begin if FHistoryIndex >= FHistory.Count then FHistoryIndex := FHistory.Count - 1; diff --git a/ide/codetemplatesdlg.pas b/ide/codetemplatesdlg.pas index eb225694bc..43dfcfb636 100644 --- a/ide/codetemplatesdlg.pas +++ b/ide/codetemplatesdlg.pas @@ -208,7 +208,7 @@ begin end; function IsCodeTemplateOk(ASynAutoComplete: TSynEditAutoComplete; - const AToken, AComment: string; AIndex: integer): boolean; + const AToken: string; AIndex: integer): boolean; var n: integer; begin @@ -238,8 +238,7 @@ begin if InputQuery(lisCodeTemplAddCodeTemplate, [lisCodeTemplToken, lisCodeTemplComment], Str) then - if IsCodeTemplateOk(ASynAutoComplete, - Str[0], Str[1], ASynAutoComplete.Completions.Count) then + if IsCodeTemplateOk(ASynAutoComplete, Str[0], ASynAutoComplete.Completions.Count) then begin Result:= mrOk; AToken:= Str[0]; @@ -262,8 +261,7 @@ begin if not InputQuery(lisCodeTemplEditCodeTemplate, [lisCodeTemplToken, lisCodeTemplComment], Str) then exit; - if not IsCodeTemplateOk(ASynAutoComplete, - Str[0], Str[1], AIndex) then exit; + if not IsCodeTemplateOk(ASynAutoComplete, Str[0], AIndex) then exit; ASynAutoComplete.Completions[AIndex]:= Str[0]; ASynAutoComplete.CompletionComments[AIndex]:= Str[1]; diff --git a/ide/etquickfixes.pas b/ide/etquickfixes.pas index c585d5a30e..cafa973380 100644 --- a/ide/etquickfixes.pas +++ b/ide/etquickfixes.pas @@ -351,7 +351,7 @@ begin Code:=CodeToolBoss.LoadFile(Msg.GetFullFilename,true,false); if Code=nil then exit; - if QuickFixLocalVarNotInitialized(Code,Msg.Column,Msg.Line,Identifier) then + if QuickFixLocalVarNotInitialized(Code, Msg.Column, Msg.Line) then Msg.MarkFixed; end; diff --git a/ide/mouseactiondialog.pas b/ide/mouseactiondialog.pas index d4070b5784..e6be0899da 100644 --- a/ide/mouseactiondialog.pas +++ b/ide/mouseactiondialog.pas @@ -136,7 +136,6 @@ procedure TMouseaActionDialog.FormCreate(Sender: TObject); var mb: TSynMouseButton; cc: TSynMAClickCount; - s: string; begin ButtonName[mbXLeft]:=dlgMouseOptBtnLeft; ButtonName[mbXRight]:=dlgMouseOptBtnRight; diff --git a/ide/qfinitlocalvardlg.pas b/ide/qfinitlocalvardlg.pas index 271af0561c..aba965328e 100644 --- a/ide/qfinitlocalvardlg.pas +++ b/ide/qfinitlocalvardlg.pas @@ -57,13 +57,11 @@ type procedure Init(TheStatements: TStrings; TheInsertPositions: TObjectList); end; -function QuickFixLocalVarNotInitialized(Code: TCodeBuffer; X, Y: integer; - Identifier: string): boolean; +function QuickFixLocalVarNotInitialized(Code: TCodeBuffer; X, Y: integer): boolean; implementation -function QuickFixLocalVarNotInitialized(Code: TCodeBuffer; X, Y: integer; - Identifier: string): boolean; +function QuickFixLocalVarNotInitialized(Code: TCodeBuffer; X, Y: integer): boolean; var Statements: TStrings; InsertPositions: TObjectList;