code cleanup
This commit is contained in:
parent
c396b5f416
commit
7bc3718b52
|
@ -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;
|
||||||
|
|
Loading…
Reference in New Issue