Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.925 Beiträge
Delphi 12 Athens
|
Wie kann ich Generics an overloaded Methode weitergeben
28. Okt 2024, 11:34
Delphi-Version: 12 Athens
"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.
Andreas Monads? Wtf are Monads?
|
|
Zitat
|