Essa conversão de inteiro para um objeto é perfeitamente cabível, uma vez quem
um objeto, na realidade, é um ponteiro. Essa conversão para um TObject serve
apenas como artifício para armazenar, juntamente com a string, um determinado
valor a ele associado (como, por exemplo, um valor de chave primária).
Para armazenar, faz-se assim (exemplo):
procedure AddPerson(Name: string; Age: integer);
begin
// considere lsStrings um TStrings público
lsStrings.AddObject(Name, TObject(Age));
end;
Para recuperar, faz-se assim (exemplo):
function GetPersonAge(Name: string): integer;
begin
// considere lsStrings um TStrings público
Result := lsStrings.IndexOf(Name);
if Result> -1 then
Result := Integer(lsStrings.Objects[Result]);
end;
Sds.
> To: delphi-br@yahoogrupos.com.br
> From: [EMAIL PROTECTED]
> Date: Thu, 6 Mar 2008 09:09:41 -0300
> Subject: Re: [delphi-br] [LER O CONTEUDO DE STRINGLIST - LISTAS]
>
> Meu caro Márcio, parece que entendi o que vc quis dizer.
> Não sei se é possível fazer um typecast de um objeto para um inteiro(se
> alguem souber, por favor, me corrija), assim não seria possível reuperar o
> valor inteiro no objeto. Se eu fosse vc, criava um objeto para guardar este
> inteiro, e usava este objeto.
>
> Abs.
> Daniel A. Bastos
>
> Em 05/03/08, Walter Maldonado Junior escreveu:
>>
>> Não sei se eu entendi o que vc pergunto, mas quando eu preciso ler o
>> conteúdo da stringlist faço o seguinte
>>
>> For i := 0 to Lista.Count – 1 do
>>
>> S := Lista.Strings[i]; // é o texto de índice i
>>
>> Espero ter ajudado
>>
>> Um abraço
>>
>> De: delphi-br@yahoogrupos.com.br [mailto:
>> delphi-br@yahoogrupos.com.br ] Em
>> nome de Marcio
>> Enviada em: quarta-feira, 5 de março de 2008 11:38
>> Para: delphi-br@yahoogrupos.com.br
>> Assunto: [delphi-br] [LER O CONTEUDO DE STRINGLIST - LISTAS]
>>
>> Amigos como faco para ler o conteudo de da lista ???
>>
>> procedure TForm1.Button5Click(Sender: TObject);
>> var
>> Lista: TStringList;
>> N: Integer;
>> S: String;
>> I,V, Idx: Integer;
>> Objeto : TObject;
>> begin
>> Lista := TStringList.Create;
>>
>> i := 0;
>> while i < 10 do
>> begin
>> s := 'Alguma Coisa' + IntToStr(i);
>> V := i * 1000;
>> Lista.AddObject(s, TObject(V));
>> i:= i + 1;
>> end;
>>
>> Como Faco para ler o conteudo de uma lista ????
>>
>> // busca um objeto pelo identificador
>> N := Lista.IndexOf('Alguma Coisa3');
>> 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;
>>
>> end;
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM>>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
> Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> O uso que você faz do Yahoo! Grupos está sujeito aos:
> http://br.yahoo.com/info/utos.html
>
>
_________________________________________________________________
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
