Circular unit reference

[FrankS]

Hallo allerseits,
ich versuche ein C# Programm auf FPC umzusetzen und bin dabei auf folgendes Problem gestossen.

Code: Alles auswählen

TBaseThing = class(TObject)
end;

TThing = class(TBaseThing) 
private
FContainer: TThingHolder;
end;

TThingHolder = class(TThing)
end;

Alle Klassen stehen in separaten Dateien.

Damit gibt es jetzt natürlich eine Circular unit reference zwischen der TThing und TThingHolder Unit.
Kann dieses Problem irgendwie gelöst werden?

Ist wahrscheinlich irrelevant mein System:
Windows 10
Lazarus 2.2.6
FPC 3.2.2

[corpsman]

Nicht schön aber löst dein Problem

binde die circuläre unit unterhalb von implementation ein und schreibe oberhalb anstatt

TThing = class(TBaseThing)
private
FContainer: TThingHolder;
end;

TThing = class(TBaseThing)
private
FContainer: TObject;
end;

Dann caste in deinem Code alles auf TThingHolder

[Zvoni]

Denke ich jetzt zu sehr um die Ecke?

Code: Alles auswählen

program Project1;
{$mode objfpc}{$H+}
Uses Sysutils, Classes;

Type
    TBaseThing = class(TObject)
    end;

    TThingHolder = class;  //Forward Declaration

    TThing = class(TBaseThing)
    private
    FContainer: TThingHolder;
    end;

    TThingHolder = class(TThing)
    end;

begin
  Readln;
end.

Und Lazarus 2.2.6?? Ernsthaft?