Buenas, resulta que tengo un StringList y quiero ponerle un valor y un objeto, hasta ahí no tengo drama (creo)
A los datos los recupero desde una query. Guardo en la parte del objeto, un string.
Código Delphi
[-]
while not qryTiposServicios.Eof do
begin
tipo:=qryTiposServicios.FieldAsString('tipo'); valor:=qryTiposServicios.FieldAsString('descripcion'); tipos_servicio.AddObject(valor, TObject(string(tipo)));
qryTiposServicios.Next;
end;;
Esto no me dá ningún error, pero a la hora de visualizarlo hago lo siguiente:
Código Delphi
[-]
s:=CellByName['clTipoServicio', i].AsString;
p:=self.tipos_servicio.IndexOf(s);
p2:=string(TObject(Self.tipos_servicio.Objects[p]));
En p2 devuelve basura. ¿Qué estoy haciendo mal?
Gracias.