1
我試圖做somenthing如下所示:德爾福2010年和泛型
type
IExemplo<Generic> = interface
function GetGenerico: Generic;
end;
TClassA<Generic> = class(TComponent, IExemplo<Generic>)
function GetGenerico: Generic; virtual;
function GetInterface: IExemplo<Generic>; virtual;
end;
TClassB = class(TClassA<string>)
function GetGenerico: string; override;
function GetInterface: IExemplo<string>; override;
end;
換句話說,我創建具有一些泛型,一個基類來實現該接口的接口,最後是一個派生類實現基類。
但是,在該行
function GetInterface: IExemplo<string>; override;
我得到一個語法錯誤。
我的目標是讓TClassB
不再具有通用屬性,此時其類型已被正確設置。
在Xe2其作品! – Christino