Testowanie typ rodzajowy w Delphi

Question

chcę jakiś sposób napisać funkcję w Delphi jak na poniższym

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

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

znaczy: Chcę być w stanie robić różne rzeczy na podstawie typu rodzajowego

Próbowałem używać TypeInfo w System, ale wydaje się, że jest odpowiedni dla obiektów, a nie typów ogólnych.

Nie jestem nawet pewien, że to jest możliwe w Pascalu

Answer 1

TypeInfo powinno działać:

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

Od XE7 roku można użyć GetTypeKind znaleźć type kind:

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

Oczywiście tkFloat identyfikuje wszystkie rodzaje zmiennoprzecinkowych tak zobacz także test SizeOf(T) = SizeOf(double).

Starsze wersje Delphi nie mają wewnętrznej wartości GetTypeKind i zamiast tego należy użyć PTypeInfo(TypeInfo(T)).Kind. Zaletą modelu GetTypeKind jest to, że kompilator jest w stanie go ocenić i zoptymalizować gałęzie, których nie można wyselekcjonować.

Wszystko to jednak raczej psuje cel generyków i można się zastanawiać, czy twój problem ma lepsze rozwiązanie.