Я просто попробовал свое первое использование дженериков в Delphi 2009 и недоумеваю, как использовать общий тип в качестве входа в функцию Supports, используемую для проверки того, реализует ли объект данный интерфейс. Я создал небольшой образец, иллюстрирующий проблему.
Учитывая следующие типы и функцию полезности:
IMyInterface = interface
['{60F37191-5B95-45BC-8C14-76633826889E}']
end;
TMyObject = class(TInterfacedObject, IMyInterface)
end;
class function TFunctions.GetInterface<T>(myObject: TObject): T;
var
specificInterface: T;
begin
// This would compile, but looses the generic capability
//Supports(myObject, IMyInterface, specificInterface);
// This results in compile errors
Supports(myObject, T, specificInterface);
result := specificInterface;
end;
и следующий фрагмент кода:
class procedure TFunctions.Test;
var
myObject: TMyObject;
myInterface: IMyInterface;
begin
myObject := TMyObject.Create;
myInterface := GetInterface<IMyInterface>(myObject);
end;
Я не ожидал бы никаких проблем, но получаю следующие ошибки времени компиляции:
[Ошибка DCC] GenericExample.pas(37): E2029 '(' expected, но ',' found [DCC Error] GenericExample.pas(37): E2014 Ожидаемое утверждение, но выражение типа 'T' найдено
Я не уверен, что компилятор ожидает меня от T, когда он используется в качестве фактического аргумента функции.
Я искал вокруг совсем немного и не смог взломать этот. Часть меня подозревает, что если бы я мог понять, как имя интерфейса преобразуется в тип IID: TGUID во время компиляции, при использовании конкретного имени интерфейса я мог бы добиться некоторого прогресса, но это тоже уклонилось от меня.
Любая помощь очень ценится.