GARANTIR DESCONTO

Fórum Array indexada por string. É possivél? #343546

23/07/2007

0

Olá,

no delphi existe alguma forma de criar um array indexada por string?

ou teria que criar uma classe do tipo TObjectList e fazer as implementações?


grato :)


Otto

Otto

Responder

Posts

24/07/2007

Jáder Medeiros

Tem sim. A fantástica classe TStringList.


Responder

Gostei + 0

24/07/2007

Otto

com a stringlista eu ja usava, mas, de forma implementada... nela não posso colocar meus objetos...

terei de fazer com tobjectlist mesmo =/

valeu


Responder

Gostei + 0

24/07/2007

Jáder Medeiros

Pode colocar os objetos também.

function TStringList.AddObject(const S: string; AObject: TObject): Integer;

Onde você passa sua chave (String) no parâmetro S e seu objeto no parâmetro AObject e a classe ainda te rotorna o índice no qual seu objeto foi colocado.

Esta classe é demais!


Responder

Gostei + 0

24/07/2007

Beppe

O oTTo Mostaert ainda programa? Achava que tu já era VP de uma multinacional situada em Olinda. kkkkkkkkkk

Qq hora eu chego no café

Flw


Responder

Gostei + 0

24/07/2007

Otto

O oTTo Mostaert ainda programa? Achava que tu já era VP de uma multinacional situada em Olinda. kkkkkkkkkk Qq hora eu chego no café Flw



Vp eueuuue longe disso rapaz... to resolvendo umas broncas por aqui mesmo


jader, obrigado pela dica :D


abraço


Responder

Gostei + 0

25/07/2007

Jax

Eu fiz o seguinte:

Criei a seguinte sequencia de classes:

type
  TIntegerList = class(TStringList)
  ...
    function Add(const I : Integer) : Integer;
    function AddObject(const I : Integer; AObject : TObject) : Integer;
  ...
  end;

  TObjectList = class(TIntegerList)
  ...
    function Add(const O : Object) : Integer;
    function AddObject(const O : TObject; AObject : TObject) : Integer;
  ...
  end;


No TIntegerList nas implementações de Add, AddObject, IndexOf e assim por diante não esqueça de usar como no seguinte exemplo:

  Result := inherited IndexOf(FormatFloat(´0000000000´, I));


E no constructor use o codigo abaixo para poder ordenar corretamente:

  CaseSensitive := False;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar