all tasks

Task/Sort-using-a-custom-comparator/Delphi/sort-using-a-custom-comparator.delphi

@@ -0,0 +1,17 @@
+program SortWithCustomComparator;
+
+{$APPTYPE CONSOLE}
+
+uses SysUtils, Types, Generics.Collections, Generics.Defaults;
+
+var
+  lArray: TStringDynArray;
+begin
+  lArray := TStringDynArray.Create('Here', 'are', 'some', 'sample', 'strings', 'to', 'be', 'sorted');
+
+  TArray.Sort<string>(lArray , TDelegatedComparer<string>.Construct(
+  function(const Left, Right: string): Integer
+  begin
+    Result := Length(Right) - Length(Left);
+  end));
+end.