Aura types

This commit is contained in:
Michael Schimmel
2025-08-25 20:18:38 +02:00
parent b4a5e30b45
commit e4681e2bf7
2 changed files with 590 additions and 3 deletions
-3
View File
@@ -9,7 +9,6 @@ uses
type
// Implements the IDataMethodType interface.
// This class is now instantiated for each unique method signature.
TDataMethodType = class(TInterfacedObject, IDataMethodType)
private
FArgType: IDataType;
@@ -20,7 +19,6 @@ type
function GetResultType: IDataType;
function CreateValue(const AValue: TMethodProc): IDataMethodValue;
public
// The constructor now takes the signature types.
constructor Create(const AArgType, AResultType: IDataType);
end;
@@ -57,7 +55,6 @@ begin
if not Assigned(AValue) then
raise EArgumentException.Create('AValue');
// Pass Self to the value's constructor, so it knows its exact type
Result := TDataMethodValue.Create(Self, AValue);
end;