Delphi - creacion de class dinamica ?

 
Vista:

creacion de class dinamica ?

Publicado por Demon Lover (22 intervenciones) el 04/09/2002 19:17:26
Hola
como les dije anteriormente buscaba una class para almacenar otras class, uso una class que es el decendiente de TObjectList
type
TUsuarios = class(TObjectList)
private
...
public
function Add(MiUsuario: TUsuario): Integer;
end;

mi pregunta es para agregar, cual es la mejor forma ?
PUsuario = ^TUsuario;
crear un puntero de tipo TUsuario y cambiar a Add(Usuario: PUsuario): Integer;
y crearlo con New(Pointer) o crearlo normalmente con
var
User: TUsuario
..
User := TUsuario.Create;
Usuarios.Add( User );
..

gracias por sus respuesta.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:creacion de class dinamica ?

Publicado por mamcx (533 intervenciones) el 05/09/2002 22:51:47
Es mejor usar la clase directamente:

Add(Usuario:TUsuario)
..
TuLista.Add(Usuario)

La vuelta con pointer solo se utiliza para hacer un enlace "debil" y se necesita cuando se manejan interfaces y referencias circulares... Y aun asi es mejor encapsular internamente el uso de pointers, eso es, que el usuario de la clase no sepa de eso o que requiera al minimo usarlo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar