Generics

[vpex4v8k (bvori)]

It seems this is a bug? It should work but it doesn’t for some reason.

namespace ConsoleApplication4;
 
interface
 
procedure ToString<T>(const A: T);

implementation

procedure ToString<T>(const A: T);
begin
  case typeOf(T) of
    Integer: writeLn('Using type Integer');
    String: writeLn('Using type String');
  end;
end;
 
begin
    ToString<Integer>(1);
end.

[mh (marc hoffman)]

What do you expect to happen and what does happen?

[vpex4v8k (bvori)]

It should print out the type, currently nothing is printed out.
Seems like case is optimized out?

[mh (marc hoffman)]

@vpex4v8k

namespace ConsoleApplication4;
 
interface
 
procedure ToString<T>(const A: T);

implementation

procedure ToString<T>(const A: T);
begin
  case typeOf(T) of
    Integer: writeLn('Using type Integer');
    String: writeLn('Using type String');
  end;
end;
 
begin
    ToString<Integer>(1);
end.

reproduced; it hits the else. will log for investigation.

[RemObjectsSoftware (RemObjects)]

Logged as bugs://E26802.