Fórum Duvida em Array Property #262070

type 
  ClasseTeste = class
  protected
     elementos : array[1..4] of integer;
     function getElemento(index: string): integer;
     procedure setElemento(index: string; el: integer);
     property pElementos[index: string]: integer read getElemento write setElemento;
  end;

function ClasseTeste.getElemento(index: string): integer;
begin
end;

procedure ClasseTeste.setElemento(index: string; el: integer);
begin
end;

function TClasseTeste.GetpElementos(Indice: String): Integer;
var
  cont: Integer;
begin
  for cont:= 0 to 4 do
    if fElementos[cont] = Indice then
    begin
      Result:= cont; //Coloquei para retornar o índice somente como um exemplo, mas vc poderia retornar qualquer coisa aqui;
    end;
end;

  TMeuObjeto = class
  public
    Codigo: String;
  end;

  TClasseTeste = class
  private
    FObjetos: array[0..4] of TMeuObjeto;
    function GetfMinhaProp(Codigo: String): TMeuObjeto;
    procedure SetfMinhaProp(Codigo: String; const Value: TMeuObjeto);
  public
    property fMinhaProp[Codigo: String]: TMeuObjeto read GetfMinhaProp write SetfMinhaProp;
  end;

function TClasseTeste.GetfMinhaProp(Codigo: String): TMeuObjeto;
var
  cont: Integer;
begin
  for cont:= 0 to 4 do
    if ( Codigo = fObjetos[cont].Codigo ) then
    begin
      Result:= fObjetos[cont];
      exit;
    end;
end;

procedure TClasseTeste.SetfMinhaProp(Codigo: String;
  const Value: TMeuObjeto);
var
  ObjAntigo: TObject;
begin
  // Observe que eu guardei a referência do
  // objeto antigo, para poder retirá-lo da memória depois
  ObjAntigo:= GetFMinhaProp( Codigo );
  GetFMinhaProp( Codigo ):= Value;
  ObjAntigo.Free;
end;

var
  Lista: TStringList;
  N: Integer;
begin
  Lista := TStringList.Create;

  // adiciona um objeto e seu identificador
  Lista.AddObject(´Um Identificador´, UmObjeto);
  Lista.AddObject(´Outro Identificador´, OutroObjeto);

  // busca um objeto pelo identificador
  N := Lista.IndexOf(´Identificador´);
  if N >= 0 then
    Objeto := Lista.Objects[N];
  else
    Objeto := nil;

  // atenção...
  // antes de destruir a lista de string, precisa destruir os objetos!
  for N := 0 to Lista.Count - 1 do
    Lista.Objects[N].Free;
  Lista.Free;