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.