Type System

This commit is contained in:
Michael Schimmel
2025-08-26 12:06:47 +02:00
parent 5adbe67d0b
commit d2f7b01911
5 changed files with 634 additions and 687 deletions
+1 -2
View File
@@ -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;