Delphi的内容

TDemo = class(TObject)
private
function GetArray1(Index: Integer): Integer;
function GetArray2(Index: string): Integer;
public
property Array1[Index: Integer]:Integer read GetArray1;
property Array2[Index: string]:Integer read GetArray2;

end;