Rosetta Code

Anagrams: Difference between revisions

Page Discussion

Anagrams (view source)

Revision as of 14:03, 26 July 2020

No change in size ,  3 years ago
→‎{{header|Delphi}}
Line 1,949:
end;
 
function CompateLengthCompareLength(List: TStringList; Index1, Index2: Integer): Integer;
begin
result := List[Index1].Length - List[Index2].Length;
Line 1,969:
Dict.LoadFromFile('unixdict.txt');
 
Dict.CustomSort(CompateLengthCompareLength);
 
Index := 0;
MaiconSoft
478

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/83210"