Problem mit mehreren Typen in unterschiedlichen Units!

[Elvis]

Zitat von wuchzael:

Oh lol!!!

Allein, wenn ich "uses U_Main" in den implementation Teil schreibe funzt alles

Gut, dann kann ich endlich auch was hier schreiben. *g*
Du musst immer im Hinterkopf bewahren, dass Delphi einen single pass compiler benutzt.
Er wird erst alle units durchlaufen, die in der interface uses clause stehen (und auch in der Reihenfolge). Danach die in der implementation uses clause.
Auf die Art können sich 2 Units gegenseitig "sehen", wenn auch mit der Einschränkung, dass mindestens eine von beiden es nur in der implementation section kann.

Absolut abstrakter Bleistift, dessen sinnloser Inhalt nicht zu Hause nachgemacht werden sollte:

Delphi-Quellcode:

unit Unit1;
interface
type
  TClass1 = class
  public
    procedure DoSomething;
  end;
implementation
uses
  Unit2;
procedure TClass1.DoSomething;
begin
  if self is TClass2 then
    blabla
  else
    blabla;
end;
end.

Delphi-Quellcode:

unit Unit2;
interface
uses
  Unit1;
type
  TClass2 = class(TClass1)
  end;
implementation
end.