Typdeklaration array und normaler Typ gleichzeitig

[sirius]

Du musst auch irgendwo ein Feld haben:

Delphi-Quellcode:

type 
  Ttest = class 
    constructor create; //der ist selten private
  private 
    { Private-Deklarationen } 
    FI:array of Integer; //das Feld zum Property
    function iget(Index: Integer): integer; 
    procedure iput(Index: Integer; Item: integer); 
    //ig:array of integer; 
  public 
    { Public-Deklarationen } 
    property I[Index: Integer]: integer read iGet write iPut; default; 
  end; 


constructor Ttest.create; 
begin 
  setlength(FI,10); 
end; 

function Ttest.iget(Index: Integer): integer; 
begin 
  result:=FI[Index]; 
end; 

procedure Ttest.iput(Index: Integer; Item: integer); 
begin 
  FI[Index]:=Item; 
end;