Wie kann ich Generics an overloaded Methode weitergeben

[QuickAndDirty]

"Add" ist überladen und kann von diversen Typen sein...
Gibt es eine hoffnung das dieser code irgendwie funktioniert oder muss ich für jeden Typ ne Kopie von dem code machen?

Delphi-Quellcode:

Unit MUELL;
Interface
uses
  System.IOUtils, System.Classes, System.Variants,
  System.sysutils,
  System.Generics.Collections,uBasetableAccess, strutils,
  system.types,System.JSON, System.JSONConsts, System.JSON.Writers, System.JSON.Readers, REST.JSON;
type
  TJSONfn = class
  public
    class Function ArrToJSON<T>(const aArr:TArray<T>):String; //Generics können scheinbar nur in Methoden aber nicht in Prozeduren verwendet werden... also bitte schön Delphi, eine Klasse mit Methode
  end;

Implementation
class Function TJSONfn.ArrToJSON<T>(const aArr:TArray<T>):String;
Begin
  var JSArr := TJSONArray.Create;
  try
    For var element:T in aArr do
      JSArr.Add(element);  // <===== an dieser Stelle kapituliert der compiler bedingungslos
    Result := JSArr.ToJSON
  finally
    JSArr.Free;
  end;
End;

end.

[freimatz]

Das wird so wohl nichts. Wie soll der Compiler denn wissen von welchen Typ T ist. Sechs Varianten sind erlaubt bei Add.
Da müsste es dann schon eine "function Add(const Element: <T>): TJSONArray" geben.

[Olli73]

Wenn man den Typ "einschränkt", dann compiliert es:

Delphi-Quellcode:

class Function ArrToJSON<T: TJSONArray>(const aArr:TArray<T>):String;

Leider kann man nur auf Klassen, Interfaces und Records einschränken, nicht auf String, Integer etc.


Aber du könntest sowas versuchen (ungetestet):

Delphi-Quellcode:

  if TypeInfo(T) = TypeInfo(string) then
    JSArr.Add(String(element))
  else if TypeInfo(T) = TypeInfo(Double) then
    JSArr.Add(Double(element))
  ...
  else
    Raise Exception.Create((PTypeInfo(TypeInfo(T))^.Name + ' not allowes');

[QuickAndDirty]

Zitat:

Zitat von freimatz (Beitrag 1542656)

Das wird so wohl nichts. Wie soll der Compiler denn wissen von welchen Typ T ist. Sechs Varianten sind erlaubt bei Add.
Da müsste es dann schon eine "function Add(const Element: <T>): TJSONArray" geben.

in TS kann ich die Typvariable einschränken...
Ja ich weiß....

Zitat:

Zitat von Olli73 (Beitrag 1542657)

Wenn man den Typ "einschränkt", dann compiliert es:

Delphi-Quellcode:

class Function ArrToJSON<T: TJSONArray>(const aArr:TArray<T>):String;

Leider kann man nur auf Klassen, Interfaces und Records einschränken, nicht auf String, Integer etc.


Aber du könntest sowas versuchen (ungetestet):

Delphi-Quellcode:

  if TypeInfo(T) = TypeInfo(string) then
    JSArr.Add(String(element))
  else if TypeInfo(T) = TypeInfo(Double) then
    JSArr.Add(Double(element))
  ...
  else
    Raise Exception.Create((PTypeInfo(TypeInfo(T))^.Name + ' not allowes');

Ja es wär schon cool wenn es eine notation dafür gäbe.

Ist ok
Ich hoffe einfach mal das ich nie etwas anderes als TArray<String> brauche. Und wenn mal was dazu kommt dann gibts halt overloaded versionen. Ich halte ja eh nichts von DRY.