1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type

  TKlasse1 = class;



  TKlasse2 = class

    Klasse1: TKlasse1;

  end;



  TKlasse1 = class

    Klasse2: TKlasse2;

  end;					

1:

[Pascal Fehler] Polynome.pas(69): E2004 Bezeichner redefiniert: 'TNichtRationalPolynom'					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

type
  TNichtRationalPolynom = class(TObject);

  TPolynom = class(TObject)
    function PolynomDivision(PolynomDivisor: TPolynom; var Rest: TNichtRationalPolynom): TPolynom;
  end;

  TNichtRationalPolynom = class(TObject)
  private
    FZaehler: TPolynom;
    FNenner: TPolynom;
  end;					

1:

TNichtRationalPolynom = class;