Function in Unit / Zugriff von anderen Units

[Tormentor32]

Delphi-Quellcode:

unit mTlocation;

interface
  // Wenn ich die function hier deklariere kennt er TFeldInhalt nicht
uses
  extctrls;


type

  TFeldInhalt = (Boden, Mauer, TrOnEnter, TrOnUse, TrOnCollision, TrChangeLoc,_);

  TFigurenImage = class(TImage)
  private
    FX: integer;
    FY: integer;
  public
    {funktionen *********************************}
    function GetXWert: integer;
    function GetYWert: integer;
    {prozeduren *********************************}
    procedure SetXWert(value: integer);
    procedure SetYWert(value: integer);
  end;

  TFeld = class(Tobject)
    FigurenImage: TFigurenimage;
  private
    FFigurenIndex: integer;
    FInhalt: TFeldInhalt;
    FID: string;
  public
    {funktionen *********************************}
    function GetFigurenIndex: integer;
    function GetInhalt: TFeldInhalt;
    function GetID: string;
    {prozeduren *********************************}
    procedure SetFigurenIndex(value: integer);
    procedure SetInhalt(value: TFeldInhalt);
    procedure SetID(value: string);
  end;

  TLocation = class(Tobject)
  private
  public
    Felder: array[1..20,1..20] of TFeld;
  end;

  //Hier Habe ich besagten Error
  function InhatlToStr(I: TFeldInhalt): string;

implementation

function InhaltToStr(I: TFeldInhalt): string;
begin
  case I of
    Boden:          result := 'StGrd';
    Mauer:          result := 'StWal';
    TrOnEnter:      result := 'TrOnE';
    TrOnUse:        result := 'TrOnU';
    TrOnCollision:  result := 'TrOnC';
  else
    result := ''
  end
end;

// [..]

end.