Função retornando registro com o campo de interface
Depois de perguntaresta pergunta sobre os campos da interface nos registros Presumi que o seguinte funcionaria (observe a afirmação):
type
TRec <T> = record
Intf : IInterface;
end;
TTestClass = class
public
function ReturnRec : TRec <Integer>;
end;
// Implementation
function TTestClass.ReturnRec : TRec <Integer>;
begin
Assert (Result.Intf = nil); // Interface field in record should be initialized!
Result.Intf := TInterfacedObject.Create;
end;
Testei isso com o seguinte código:
for I := 1 to 1000 do
Rec := Test.ReturnRec;
e a afirmação falha!
Onde está o meu erro aqui? Que suposição está errada?