|
@@ -832,7 +832,7 @@ end;
|
|
function TValue.AsInterface: IInterface;
|
|
function TValue.AsInterface: IInterface;
|
|
begin
|
|
begin
|
|
if Kind <> tkInterface then
|
|
if Kind <> tkInterface then
|
|
- EInvalidCast.Create(SErrInvalidTypecast);
|
|
|
|
|
|
+ raise EInvalidCast.Create(SErrInvalidTypecast);
|
|
Result := PInterface(FData.FValueData.GetReferenceToRawData)^;
|
|
Result := PInterface(FData.FValueData.GetReferenceToRawData)^;
|
|
end;
|
|
end;
|
|
|
|
|