Versuchs doch mal mit einer Standardmäßigen Typ-Deklaration:
Delphi-Quellcode:
type
TObjekt1 = class
private
FTyp:String;
FUsed:Boolean;
FItems:Array [1..100] of String;
FName:String;
FAktion:String;
FBild:String;
FX:Integer;
FY:Integer;
published
procedure WriteTyp(Variable:String);
procedure WriteUsed(Variable:Boolean);
procedure WriteItem(Item:String; Position:Integer);
procedure WriteName(Name:String);
procedure WriteAktion(Aktion:String);
procedure WriteBild(Bild:String);
procedure WriteX(x:integer);
procedure WriteY(y:Integer);
function GetTyp:String;
function GetUsed:Boolean;
function GetItem(position:integer):String;
function GetName:String;
function GetAktion:String;
function GetBild:String;
function GetX:Integer;
function GetY:Integer;
property Typ : String Read FTyp Write FTyp;
end;
Die Unterscheidet sich zwar kaum von der anderen, aber wenn es so nicht funktioniert, weiss ich auch nicht mehr weiter.