[delphi-br] [LER O CONTEUDO DE STRINGLIST - LISTAS]

[Marcio]

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]