Wie definiere ich implizite Konvertierungsoperatoren für gegenseitig abhängige Datensätze?

Question

Ich bin mit dem Operator für Aufzeichnungen in Delphi Überlastung 2006. (Bitte verwenden Sie diese Frage nicht beantworten, indem sie mir nicht zu erzählen.)

Ich habe zwei Satztypen mit dem impliziten Betreiber überlastet. Sie sind beide nur in der Implementierung des Moduls, nicht durch die Schnittstelle ausgesetzt.

Mein Problem ist, jetzt, da sie sich gegenseitig bedingen, ich weiß nicht, wie man den zweiten Typ an den Compiler weiterleiten. Ich weiß, wie man das mit Funktionen, Prozeduren und Klassen macht, aber nicht mit Datensätzen.

Hier ist ein vereinfachtes Beispiel von dem, was ich zu tun versucht:

implementation 

type 
    TMyRec1 = record 
    Field1 : Integer; 
    class operator Implicit(a: TMyRec2): TMyRec1; // <---- Undeclared Identifier here. 
    end; 

    TMyRec2 = record 
    Field2: Integer; 
    class operator Implicit(a: TMyRec1): TMyRec2; 
    end; 

class operator TMyRec1.Implicit(a:TMyRec2): TMyRec1; 
begin 
    Result.Field1 := a.Field2; 
end; 

class operator TMyRec2.Implicit(a:TMyRec2): TMyRec2; 
begin 
    Result.Field2 := a.Field1; 
end; 

Answer 1

Sie können nicht nach vorne Erklärungen für Datensatztypen haben. Definieren Sie beide Implicit Operatoren in der zweiten Art:

type 
    TMyRec1 = record 
    Field1 : Integer; 
    end; 

    TMyRec2 = record 
    Field2: Integer; 
    class operator Implicit(a: TMyRec2): TMyRec1; 
    class operator Implicit(a: TMyRec1): TMyRec2; 
    end; 

von the help Zitiert:

Implizite Konvertierungen sollten nur vorgesehen werden, wenn unbedingt notwendig, und Reflexivität vermieden werden sollte. Es ist am besten, wenn Typ B implizit in Typ A konvertiert wird und Typ A keine Kenntnis vom Typ B hat (oder umgekehrt).

Answer 2

Sie könnte der Lage sein, diese Helfer mit Rekord zu tun.

Unten ist, was ich kürzlich getan habe, um die Unmöglichkeit zu arbeiten, eine forward record Aufzeichnungserklärung zu haben.

Es verwendet die record helper Konstruktion, die - wie implicit type casts - auch Nachteile haben.
Der wichtigste ist, dass nur der nächste record helper für einen bestimmten record Typ gilt.

type 
    TIpv4Address = record 
    strict private 
    FAddress: TIpv4Quad; 
    FMask: TIpv4Quad; 
    private 
    class function CreateInternal(const IP_ADDR_STRING: _IP_ADDR_STRING): TIpv4Address; static; 
    public 
    class function Create(const IP_ADDR_STRING: _IP_ADDR_STRING): TIpv4Address; static; 
    class function Count(const IP_ADDR_STRING: _IP_ADDR_STRING): Integer; static; 
    property Address: TIpv4Quad read FAddress; 
    property Mask: TIpv4Quad read FMask; 
    end; 

    TIpv4AddressList = array of TIpv4Address; 

    TIpv4AddressHelper = record helper for TIpv4Address 
    class function CreateList(const IP_ADDR_STRING: _IP_ADDR_STRING): TIpv4AddressList; static; 
    end; 

Sie verwenden es wie folgt aus:

function TAdapterInfo.GetIpAddressList: TIpv4AddressList; 
begin 
    Result := TIpv4Address.CreateList(AdapterInfos.IP_ADAPTER_INFO[Index].IpAddressList); 
end; 

--jeroen