Trick um "überkreuzenden Bezug" von Units zu umgehen ?

[Oxmyx]

Ist auch mit einem Zeiger lösbar:

Unit1.pas:

Delphi-Quellcode:

interface

uses Unit2;

TClass1 = class
  i: Integer;
  p: TClass2;
end;

Unit2.pas:

Delphi-Quellcode:

interface

TClass2 = class
  p: Pointer;
end;

implementation

uses Unit1;

procedure foo();
begin
  TClass1(p).i := 17;
end;