Agregar objetos a TstringList

[[seoane]]

Tenemos una clase TPersona como esta:

Código Delphi [-]
type
  TPersona = class
    DNI: string;
    Nombre: string;
  end;

Tenemos una TStringList llamada Personas:

Código Delphi [-]
Personas: TStringList;

// Para crearla
Personas:= TStringList.Create;

// Para destruirla
Personas.Free;

Pues para añadir una Persona a la lista de Personas, seria algo así:

Código Delphi [-]
var
  Persona: TPersona;
begin
  Persona:= TPersona.Create;
  Persona.Nombre:= 'Pepe';
  Persona.DNI:= '123454678Z';
  Personas.AddObject(Persona.Nombre,Persona);
end;

Y para obtener una Persona de la lista de Personas:

Código Delphi [-]
var
  i: integer;
begin
  // Por ejemplo si buscamos el DNI de Pepe
  i:= Personas.IndexOf('Pepe');
  if i<>-1 then
    ShowMessage(TPersona(Personas.Objects[i]).DNI);
end;

Mas o menos, se haría así. También podemos utilizar un TObjectList en vez de un TStringList que entre otras ventajas maneja la memoria asignada a los objetos liberándola cuando es necesario.