Type System
This commit is contained in:
@@ -52,8 +52,7 @@ end;
|
||||
|
||||
function TImplDataMethodType.CreateValue(const AValue: TDataMethodProc): IDataMethodValue;
|
||||
begin
|
||||
if not Assigned(AValue) then
|
||||
raise EArgumentException.Create('AValue');
|
||||
Assert(Assigned(AValue));
|
||||
|
||||
Result := TImplDataMethodValue.Create(Self, AValue);
|
||||
end;
|
||||
|
||||
Reference in New Issue
Block a user