Interface + (Record)Operatoren [MiniMathLib]

[sirius]

Unabhängig davon, was du mit deinen Interfaces machst. Wenn du so viel Lust und Zeit hast, kannst du es auch noch mit Varianten machen (TCustomVariantType oder TPublishedVariantType). Siehe dazu wie es Borland mit komplexen Zahlen in der Unit VarCmplx macht.

[himitsu]

ich hab das jetzt mal auf mehrere Interfaces umgestellt und was ist?
es geht nix mehr :cry:

Zitat:

Deklaration von 'ObjectType' unterscheidet sich von der Deklaration in Interface 'IOperatorInterfaceBinar'
Deklaration von 'CheckString' unterscheidet sich von der Deklaration in Interface 'IOperatorInterfaceBinar'
E2211 Deklaration von 'CheckBinary' unterscheidet sich von der Deklaration in Interface 'IOperatorInterfaceBinar'
Undeklarierter Bezeichner: 'CheckBinaryP'
Deklaration von 'AcceptOper2' unterscheidet sich von der Deklaration in Interface 'IOperatorInterfaceBinar'
.....

es gibt also ein Hauptinterface mit der Objektverwaltung
und dann noch mehrere für due "Zusatzfunktionen",
so weit so gut

Delphi-Quellcode:

IOperatorInterface = Interface['{36BE8FFE-9DAE-456E-894F-8DBD15205490}']
  Function QueryInterface(Const IID: TGUID; Out Obj): HResult; StdCall;
  Function _AddRef:  Integer; StdCall;
  Function _Release: Integer; StdCall;

  Function CreateInstance: IOperatorInterface;
  Function GetType:        TOperatorClass;
  Function GetObject:      TOperatorObject;

  Function  ObjectType:   TOperatorObjectType;
  Function  CheckString   (Const Value: AnsiString): Boolean;
  Procedure LoadFromString(Const Value: AnsiString);
  Function  SaveToString:               AnsiString;
  Function  CheckBinary   (Const Value: TBinaryArray): Boolean;
  Procedure LoadFromBinary(Const Value: TBinaryArray);          Overload;
  Function  SaveToBinary:               TBinaryArray;           Overload;
  Function  CheckBinaryP  (P: Pointer; Size: LongInt): Boolean;
  Procedure LoadFromBinary(P: Pointer; Size: LongInt);          Overload;
  Function  SaveToBinary  (P: Pointer; Size: LongInt): LongInt; Overload;
  Function  GetBinarySize:                   LongInt;
  Function  AcceptOper2   (Op: TOperatorOperation; Oper2: IOperatorInterface): Boolean;
End;

IOperatorInterfaceAssign = Interface(IOperatorInterface)['{36BE8FFE-9DAE-456E-894F-8DBD15205491}']
  // ooAssign
  Procedure Assign     (Obj: IOperatorInterface);
End;

IOperatorInterfaceCompare = Interface(IOperatorInterface)['{36BE8FFE-9DAE-456E-894F-8DBD15205492}']
  // ooCompare
  Function Compare     (Const Oper2: IOperatorInterface): TValueRelationship;
End;

......

die Zusatzinterfaces erben nun auch gleich mal die Eigenschaften des Basisinterfaces (wegen der Refferenzzählung und so)

dieses ist dann auch im Basisobject angegeben

Delphi-Quellcode:

TOperatorObject = Class(TObject, IOperatorInterface)
  Protected
    FRefCount: LongInt;
    Function QueryInterface(Const IID: TGUID; Out Obj): HResult; StdCall;
    Function _AddRef:  Integer; StdCall;
    Function _Release: Integer; StdCall;
  Public
    Procedure AfterConstruction; Override;
    ...

hier gibt's auch noch keine Probleme,
aber wenn ich in einem der "Nachkömmlinge" dann die zusätzlichen Interfaces mit angebe,
dann wollen die plötzlich da nochmals die Funktionen der Interface-/Instanzenverwaltung implementieren bzw meckern über die dort angegebenen Funktionen (welche eigentlich nur die Definitionen in der Basisklasse überschreiben).
ja und die meckern auch, wenn in den Subklassen Definitionen fehlen, welche ja eigentlich in der Basisklasse definiert sind, da sie vom Basisinterface stammen.



[add]
so, nachdem ich noch ein paar kleine Problemchen elliminietrt hab...

es scheint nur noch Probleme mit diesen umgeleiteten Funktionen zu geben :?

Delphi-Quellcode:

TOperatorObject = Class(TObject, IOperatorInterface)
  Private
    Function IOperatorInterface.ObjectType   = Interface_ObjectType;
    Function IOperatorInterface.CheckString  = Interface_CheckString;
    Function IOperatorInterface.CheckBinary  = Interface_CheckBinary;
    Function IOperatorInterface.CheckBinaryP = Interface_CheckBinaryP;
    Function IOperatorInterface.AcceptOper2  = Interface_AcceptOper2;

hmmm, ich werd mal versuchen diese in ein eigenes Interface zu verschieben.

[edit]
Anhang gegen neuere Version ausgetauscht