Aura types
This commit is contained in:
@@ -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;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user