Klasse besitzt keine Standardeigenschaft

[Marcel2906]

Hey,
erstmal Code (ohne die proceduren):

Delphi-Quellcode:

Type
   TArray = Class
   private
      fData: Array[0..8] Of Array[0..8] Of integer;
   public
      Procedure IndasArrayEintragen(x, y, Wert: integer);
   End;

Type
   tSolver = Class
   private
      aSudoku: TArray;
      aHilfsSudoku: TArray;

   public
      Constructor Create;// override;
      Destructor Destroy; override;
   End;

warum kann ich nicht aSudoku[x,y] benutzen.
Fehler:

Code:

[DCC Fehler] Sudoku_Unit.pas(71): E2149 Klasse besitzt keine Standardeigenschaft

[mkinzler]

Warum eine Klasse für einen Array?
Du benötigst eine indexed property

[Marcel2906]

Weiß ich auch nicht genau.
Mein Ausbilder hat mir alles umschrieben und gesagt ich soll das so machen

[mkinzler]

Mit der Methode geht es so
aSudoku.IndasArrayEintragen( x,y, <WERT>);

[Marcel2906]

ahh, jetzt versteh ich es..also darf ich mein ganzen code durchsuchen und ändern....dann hab ich ja was zu tun -.-

vielen dank für die hilfe

[TiGü]

Zitat von Marcel2906:

ahh, jetzt versteh ich es..also darf ich mein ganzen code durchsuchen und ändern....dann hab ich ja was zu tun -.-

vielen dank für die hilfe

Shift + Strg + F
und
Strg + R sind deine Freunde!

[mkinzler]

Oder eine indexed property dafür erstellen.

[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;