Anagrams: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,949: / Line 1,949: @@
 end;
-function CompateLength(List: TStringList; Index1, Index2: Integer): Integer;
+function CompareLength(List: TStringList; Index1, Index2: Integer): Integer;
 begin
   result := List[Index1].Length - List[Index2].Length;
@@ Line 1,969: / Line 1,969: @@
   Dict.LoadFromFile('unixdict.txt');
-  Dict.CustomSort(CompateLength);
+  Dict.CustomSort(CompareLength);
   Index := 0;