Einzelnen Beitrag anzeigen

schlecki

Registriert seit: 11. Apr 2005
Ort: Darmstadt
148 Beiträge
 
Delphi XE2 Enterprise
 
#3

AW: Zugriffsverletzung bei Adresse ...

  Alt 30. Mai 2011, 12:29
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));
  Mit Zitat antworten Zitat