code cleanup

This commit is contained in:
mysticbbs 2013-02-17 00:34:20 -05:00
parent c396b5f416
commit 7bc3718b52
2 changed files with 1 additions and 4 deletions

View File

@ -32,8 +32,6 @@ Var
SortLast : Word; SortLast : Word;
SortType : Byte; SortType : Byte;
Count : Word; Count : Word;
Str : String;
Tagged : Boolean;
Begin Begin
If Not GetSortRange(List, SortFirst, SortLast) Then Exit; If Not GetSortRange(List, SortFirst, SortLast) Then Exit;
@ -164,7 +162,6 @@ Procedure Configuration_MessageBaseEditor;
Var Var
Box : TAnsiMenuBox; Box : TAnsiMenuBox;
List : TAnsiMenuList; List : TAnsiMenuList;
MIndex : LongInt;
Copied : RecMessageBase; Copied : RecMessageBase;
HasCopy : Boolean = False; HasCopy : Boolean = False;
MBaseFile : File of RecMessageBase; MBaseFile : File of RecMessageBase;