Your constructor should be something like
constructor TIsland.Create(const ATerrain : Terrain_type;
const ATerrain_char : char;
const Adescription : description_type;
const Ax, Ay, Alocation_number : integer;
const Aexits : exit_type );
begin
// Save the passed parameters
self.ATerrain := ATerrain;
self.ATerrain_char := ATerrain_char;
self.Adescription := Adescription;
self.Ax := Ax;
self.Ay := Ay;
self.Alocation_number := Alocation_number;
self.Aexits := Aexits;
end;
You declared the properties as read only, so assignments are not possible,
instead you should make the assignments to the private fields that the
properties will read.
Luk
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
