Remove unused variables

This commit is contained in:
Ansgar Becker
2015-12-16 18:35:24 +00:00
parent f8067452d2
commit ae206eec29

View File

@ -222,12 +222,10 @@ end;
}
procedure Toptionsform.Apply(Sender: TObject);
var
i, j: Integer;
i: Integer;
Attri: TSynHighlighterAttributes;
Grid: TVirtualStringTree;
CatNode, ItemNode: PVirtualNode;
Data: PShortcutItemData;
QueryTab: TQueryTab;
LangCode: String;
begin
Screen.Cursor := crHourGlass;