Klasse besitzt keine Standardeigenschaft

[Bummi]

ich habe die krude Namensvergabe mal beigbehalten

Delphi-Quellcode:

   TArray = Class
   private
      fData: Array[0..8] Of Array[0..8] Of integer;
    function GetIndasArrayEintragen(x, y: Integer): Integer;
    procedure SetIndasArrayEintragen(x, y: Integer; const Value: Integer);
   public
      Property IndasArrayEintragen[x, y:Integer]:Integer Read  GetIndasArrayEintragen write SetIndasArrayEintragen; default;
   End;

implementation

{ TArray }

function TArray.GetIndasArrayEintragen(x, y: Integer): Integer;
begin
   Result := fData[x,y]
end;

procedure TArray.SetIndasArrayEintragen(x, y: Integer; const Value: Integer);
begin
   if (x>=Low(fData)) and (x<=High(fData)) and  (y>=Low(fData[0])) and (y<=High(fData[0]))  then
   fData[x,y] := Value;
end;