Fórum Array indexada por string. É possivél? #343546
23/07/2007
0
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
Curtir tópico
+ 0Posts
24/07/2007
Jáder Medeiros
Gostei + 0
24/07/2007
Otto
terei de fazer com tobjectlist mesmo =/
valeu
Gostei + 0
24/07/2007
Jáder Medeiros
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!
Gostei + 0
24/07/2007
Beppe
Qq hora eu chego no café
Flw
Gostei + 0
24/07/2007
Otto
Vp eueuuue longe disso rapaz... to resolvendo umas broncas por aqui mesmo
jader, obrigado pela dica :D
abraço
Gostei + 0
25/07/2007
Jax
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;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)