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?

[corpsman]

@Zvoni,

so wie ich ihn verstanden habe liegen alle Klassen in einer eigenen Unit, aber nicht der selben, damit geht das vorwärtsdeclarieren nicht, da FPC das nur im selben "skope" zuläst ..

[Zvoni]

@Zvoni,

so wie ich ihn verstanden habe liegen alle Klassen in einer eigenen Unit, aber nicht der selben, damit geht das vorwärtsdeclarieren nicht, da FPC das nur im selben "skope" zuläst ..

Ach Mist.. übersehen.

Tja, entweder deine Variante oder die zwei betroffenen Klassen in eine gemeinsame Unit.
Da er von C# portiert muss er ja nicht diesselbe Strategie verfolgen (sofern die Klassen bereits in C# jeweils in einem eigenen Modul waren).
Und mehrere Klassen in einer Unit (insbesondere in genannter Konstellation) ist ja jetzt nichts unanständiges