Как вы сравниваете ссылку класса кислорода на классы?

Question

Учитывая следующий код:

type 
    Class1 = public class 
    end; 

    Class1Class = class of Class1; 

    Class2 = public class (Class1) 
    end; 

    Class3 = public class (Class1) 
    end; 

    Class4 = public class 
    public 
    method DoSomething(c: Class1Class): Integer; 
    end; 

implementation 

method Class4.DoSomething(c: Class1Class): Integer; 
begin 
    if c = Class2 then 
    result := 0 
    else if c = Class3 then 
    result := 1 
    else 
    result := 2; 
end; 

Как следует DoSomething на самом деле быть написано, как сравнения равенства забросить ошибку компилятора: Type mismatch, cannot find operator to evaluate "class of Class1" = "<type>"

Использование is компилирует, но в действительности первая условная всегда имеет значение true независимо от того, принимается ли Class2 или Class3.

Цель состоит в том, чтобы написать это кросс-платформенными способами без использования трески специфичный для любой из платформ Oxygene.

Answer 1

Вы должны создать ссылки на классы для каждого класса, используемого в условных выражениях, и использовать оператор is.

type 
    Class1 = public class 
    end; 

    Class1Class = class of Class1; 

    Class2 = public class (Class1) 
    end; 

    Class3 = public class (Class1) 
    end; 

    Class4 = public class 
    public 
    method DoSomething(c: Class1Class): Integer; 
    end; 

    Class2Class = class of Class2; 
    Class3Class = class of Class3; 

implementation 


method Class4.DoSomething(c: Class1Class): Integer; 
begin 
    if c is Class2Class then 
    result := 0 
    else if c is Class3Class then 
    result := 1 
    else 
    result := 2; 
end; 

Answer 2

Я не знаю, почему вы проверяете тип класса специально - тыс не должны быть необходимыми, если вы виртуализацией поведения класса через ссылку на класс, но если у вас есть причины необходимости работать с классом идентичность ссылки класса ...

вы не сказать, какой платформе вы работаете, но на Java типы классов Java работают достаточно хорошо для этих целей без необходимости использовать ссылки класса Oxygene:

method Class4.DoSomething(c: &Class<Object>): Integer; 
begin 
    case c of 
    typeOf(Class2): result := 0; 
    typeOf(Class3): result := 1; 
    else 
    result := 2; 
    end; 
end; 


// Examples of usage: 

c4.DoSomething(typeOf(Class1)); 

someC := new Class3; 
c4.DoSomething(someC.Class); 

Если вы не работает на Java или нужен платформа портативного подхода, то вы могли бы включать идентичность альтернативного класса в классах с использованием методов виртуального класса:

Class1 = public class 
    class method classID: Integer; virtual; 
    end; 

Реализовать для возврата некоторых постоянной идентификации Class1. Переопределите в классах потомков, чтобы вернуть соответствующий идентификатор для каждого класса. Затем в DoSomething метод:

method Class4.DoSomething(c: Class1Class): Integer; 
begin 
    case c.classID of 
    CLASS_2: result := 0; 
    CLASS_3: result := 1; 
    else 
    result := 2; 
    end; 
end;