Fórum Converter record em TStringList #369807

procedure TForm1.Button1Click(Sender: TObject);
type
  TVar1_PTR = ^Var1;//Neste caso, ^TData_PTR é um ponteiro p/ o record Var1.
var
Obj,Obj1,Obj2,Obj3,Obj4:Var1;
PA:TVar1_PTR;

ListaDeObjetos:TStrings;

idx:integer;
begin
ListaDeObjetos:=TStringList.create;


Obj1.nome := ´meu nome1´;
Obj1.telefone := ´meu telefone1´;
Obj1.idade := ´idade1´;


ListaDeObjetos.AddObject(Obj1.nome,@Obj1);

Obj2.nome := ´meu nome2´;
Obj2.telefone := ´meu telefone2´;
Obj2.idade := ´idade3´;

ListaDeObjetos.AddObject(Obj2.nome,@Obj2);

Obj3.nome := ´meu nome3´;
Obj3.telefone := ´meu telefone3´;
Obj3.idade := ´idade3´;

ListaDeObjetos.AddObject(Obj3.nome,@Obj3);

Obj4.nome := ´meu nome4´;
Obj4.telefone := ´meu telefone4´;
Obj4.idade := ´idade4´;

ListaDeObjetos.AddObject(Obj4.nome,@Obj4);


idx:=ListaDeObjetos.IndexOf(obj3.nome); //Por exemplo
// ou  idx:=ListaDeObjetos.IndexOf(´Qualquer coisa´);

case Idx of
-1:Raise exception.Create(´Mensagem De Erro Nome Não existe´);
else
  begin
   Pa:=Pointer(ListaDeObjetos.Objects[idx]);
   Obj:=pa^;
   Showmessage(Obj.nome+13+
               Obj.telefone+13+
               Obj.idade);
  end;
end; //fim do case;
ListaDeObjetos.Free;
end;