Testare il tipo di un generico in Delphi

Question

voglio un modo per scrivere una funzione in Delphi come seguente

procedure Foo<T>; 
begin 
    if T = String then 
    begin 
     //Do something 
    end; 

    if T = Double then 
    begin 
     //Do something else 
    end; 
end; 

vale a dire: io voglio essere in grado di fare cose diverse in base a un tipo generico

Ho provato a utilizzare TypeInfo in System ma questo sembra essere adatto agli oggetti piuttosto che ai tipi generici.

io non sono nemmeno sicuro che questo è possibile in pascal

Answer 1

TypeInfo dovrebbe funzionare:

type 
    TTest = class 
    class procedure Foo<T>; 
    end; 

class procedure TTest.Foo<T>; 
begin 
    if TypeInfo(T) = TypeInfo(string) then 
    Writeln('string') 
    else if TypeInfo(T) = TypeInfo(Double) then 
    Writeln('Double') 
    else 
    Writeln(PTypeInfo(TypeInfo(T))^.Name); 
end; 

procedure Main; 
begin 
    TTest.Foo<string>; 
    TTest.Foo<Double>; 
    TTest.Foo<Single>; 
end; 

Answer 2

Da XE7 in poi è possibile utilizzare GetTypeKind per trovare le type kind: tutti i tipi in virgola mobile

case GetTypeKind(T) of 
tkUString: 
    .... 
tkFloat: 
    .... 
.... 
end; 

Naturalmente tkFloat identifica per cui si potrebbe anche test SizeOf(T) = SizeOf(double).

Le versioni precedenti di Delphi non hanno l'intrinseco GetTypeKind e devi invece utilizzare PTypeInfo(TypeInfo(T)).Kind. Il vantaggio di GetTypeKind è che il compilatore è in grado di valutarlo e di ottimizzare i rami lontani che è possibile dimostrare di non essere selezionati.

Tutto ciò sconfigge lo scopo dei generici e ci si chiede se il problema abbia una soluzione migliore.