oder noch besser, gleich einen richtigen Konstruktor bauen...
Delphi-Quellcode:
type TMensch =
class(TObject)
private
//fx_koo : integer;
//fy_koo : integer;
FCoords: TPoint;
schatz : boolean;
IP_private : integer;
bewegen : boolean;
anzahl_bewegen : integer;
public
constructor Create(
const IP: Integer;
const Coords: TPoint);
reintroduce;
// property x_koo : integer read fx_koo;
// property y_koo : integer read fy_koo;
property Coords: TPoint
read FCoords;
procedure set_koo(x,y : integer);
property IP : integer
read IP_private;
procedure set_IP(
IP:integer);
end;
constructor TMensch.Create(
const IP: Integer;
const Coods: TPoint);
begin
inherited Create();
FIP :=
IP;
FCoords := Coords;
end;
und dann einfach
Mensch := TMensch.Create(127, TPoint(0, 0));