Generisch Maximum bestimmen

[Uwe Raabe]

Meinst du in etwa so? (Müsste man aber noch ausbauen)

Delphi-Quellcode:

type
  TGeneric = record
  public
    class function Max<T>(List: TEnumerable<T>): T; static;
  end;

class function TGeneric.Max<T>(List: TEnumerable<T>): T;
begin
  var comparer := IComparer<T>(TComparer<T>._Default);
  Result := Default(T);
  for var item in List do
    if comparer.Compare(Result, item) < 0 then
      Result := item;
end;