Hallo habe eine klasse TPlayer geschrieben die über eine Array eigenschaft points verfügt. Wenn ich allerdings darauf zugreifen will, funktioniert das nicht, weil der zeiger von points auf nil zeigt.
Wie kann ich diese eigenschaft initialsieren weil setlength funktioniert ja nciht oder wie setze ich die länge schon beim objekt anlegen?

zusammenfalten · markieren

Delphi-Quellcode:

type TPlayer = class(TObject)
  private
   f_name :String;
   f_stand:integer;
   f_games : array of Tgame;

   procedure setStand(stand : Integer);
   procedure setName(name : string);

    function GetPoints(index: integer): integer;
    procedure SetPoints(Value: integer;index: integer);
  public
    constructor Create(name : String);
    property name: String read f_Name write setName; //spielername
    property stand:Integer read f_Stand write setStand; //aktueller punktestand bzw. nächstes Ziel
    property points[index : integer]: integer read GetPoints write SetPoints; default

  end;
implementation

{ TPlayer }

constructor TPlayer.Create(name: String);
begin
SetName(name);
end;

function TPlayer.GetPoints(index: integer): integer;
begin
result := Points[index];
end;

procedure TPlayer.setName(name: string);
begin
f_name := name;
end;

procedure TPlayer.SetPoints( value: integer;index: integer);
begin
points[index] := value;
end;

procedure TPlayer.setStand(stand: Integer);
begin
f_stand := stand;
end;

du hast da irgendwie ne riesen Rekursion. Dein Property Points ruft die Methoden GetPoints und SetPoints auf welche wiederum auf das Property Points zugreifen welches auf die Methoden GetPoints und SetPoints zugreift....

und wie löse ich das problem .
Ich brauche ja ein array in dem die einzelnen punkte gespeichert werden

Tschaaa ... du brauchst eine Variable, die deine Points hält. Im Moment hast du nur die Zugriffsfunktionen definiert.

Zum Beispiel so

zusammenfalten · markieren

Delphi-Quellcode:

private
  f_Points : array of Integer;
//...

//und dann musst du noch diese Funktionen anpassen, weil: Siehe SirThornberry
function TPlayer.GetPoints(index: integer): integer;
begin
result := f_Points[index];
end;

procedure TPlayer.SetPoints( value: integer;index: integer);
begin
f_points[index] := value;
end;

//und jetzt kannst du das array auch initialisieren
constructor TPlayer.Create(name: String);
begin
SetName(name);
   SetLength(f_Points,10); //später das freigeben nicht vergessen
end;

//edit: Man tippe ich langsam ... 2 Beiträge in der Zeit

Danke das wars , habe bloß gelesen das man bei arrayeigenschaften bei read und write kein feld schreiben darf und das etwas missverstanden

Jetzt noch die Parameter richtig anordnen, dann funktioniert es:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TPlayer = class(TObject)
  private
    :
// procedure SetPoints(Value: integer;index: integer); // so nicht
    procedure SetPoints (index: integer; value: integer); // besser so
    :
  end;

// procedure TPlayer.SetPoints( value: integer;index: integer); // so nicht
procedure TPlayer.SetPoints (index: integer; value: integer); // besser so
begin
  f_points[index] := value;
end;

Gruß Hawkeye