Problem mit in Komponente gerkapseltem Array

[Christian Seehase]

Moin E.B.,

probier's mal so:

Delphi-Quellcode:

type
  TFilm = array[1..10,1..10] of single;

  TEichPlan = class(TPaintBox)
  private
     pPlan   : TFilm;
    function GetPlan(x, y: integer): single;
    procedure SetPlan(x, y: integer; const Value: single);
  protected

  public
     property Plan[x : integer;y : integer] : single Read GetPlan Write SetPlan;
  end;

  implementation

  function TEichPlan.GetPlan(x, y: integer): single;
  begin
    Result := pPlan[x,y];
  end;

  procedure TEichPlan.SetPlan(x, y: integer; const Value: single);
  begin
    pPlan[x,y] := Value;
  end;