Anagrams: Difference between revisions
Content deleted Content added
MaiconSoft (talk | contribs) |
MaiconSoft (talk | contribs) |
||
Line 1,949: | Line 1,949: | ||
end; |
end; |
||
function |
function CompareLength(List: TStringList; Index1, Index2: Integer): Integer; |
||
begin |
begin |
||
result := List[Index1].Length - List[Index2].Length; |
result := List[Index1].Length - List[Index2].Length; |
||
Line 1,969: | Line 1,969: | ||
Dict.LoadFromFile('unixdict.txt'); |
Dict.LoadFromFile('unixdict.txt'); |
||
Dict.CustomSort( |
Dict.CustomSort(CompareLength); |
||
Index := 0; |
Index := 0; |