Prototyp einer Klasse erstellen

[MisterNiceGuy]

Hi, ist es möglich in Delphi einen Prototyp einer Klasse zu erstellen. Grund ist ich will folgendes realisieren:

Delphi-Quellcode:

type TClass1 = class(TObject)
   public
      a:TClass2;
end;

type TClass2 = class(TObject)
   public
      b:TClass1;
end;

Natürlich ist TClass2 in TClass1 nicht bekannt und umgekehrt. Daher meine Frage:
Ist es möglich, dass ich vor die Definition von TClass1 noch einen Klassenprototyp von TClass2 schreibe?
z.B. so:

Delphi-Quellcode:

type TClass1;

Danke für eure Hilfe :)

[s.h.a.r.k]

Steht hier im Forum glaube mehrere hunderte Male :zwinker:

Delphi-Quellcode:

// Korrigierte Fassung...
type

TClass2 = class; // Fehler: Hier war das "(TObject)" zu viel

TClass1 = class(TObject)
public
  a:TClass2;
end;

TClass2 = class(TObject)
public
  b:TClass1;
end;

Edit: Hier noch ein interessanter Link für dich: http://www.delphipraxis.net/internal...t.php?t=171094

Korrektur des Quelltextes, sodass es hier nun auch richtig steht.

[MisterNiceGuy]

Da bekomm ich beim dritten Typ einen "Identifier redeclared"... Ist das in Delphi7 schon möglich?

[Sir Rufo]

Zitat:

Zitat von MisterNiceGuy

Da bekomm ich beim dritten Typ einen "Identifier redeclared"... Ist das in Delphi7 schon möglich?

So ist es richtig

Delphi-Quellcode:

type
  TFoo1 = class;
  TFoo2 = class
    Foo1 := TFoo1;
  end;
  TFoo1 = class
    Foo2 : TFoo2;
  end;

So ist es falsch, bzw. gibt einen Fehler

Delphi-Quellcode:

type
  TFoo1 = class;
type
  TFoo2 = class
    Foo1 := TFoo1;
  end;
type
  TFoo1 = class
    Foo2 : TFoo2;
  end;

So hat s.h.a.r.k das ja auch geschrieben, aber nicht explizit drauf hingewiesen ;)

[s.h.a.r.k]

Ich hatte das (TObject) zu viel. Das hat man davon, dass der Firefox nicht automatisch den Quelltext, den man hier schreibt, compiliert :mrgreen:

[Sir Rufo]

Zitat:

Zitat von s.h.a.r.k

Ich hatte das (TObject) zu viel. Das hat man davon, dass der Firefox nicht automatisch den Quelltext, den man hier schreibt, compiliert :mrgreen:

uppss, das hatte ich auch übersehen :mrgreen: