Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Saber si se ha creado un objeto (https://www.clubdelphi.com/foros/showthread.php?t=61602)

donald shimoda 14-11-2008 19:28:09

Cita:

Empezado por roman (Mensaje 326163)
Copiando y pegando tu ejemplo:

// Saludos

:( Irrefutable. Me equivoqué feo.

Quería mostrar el caso en que un objeto que se crea y usa de una vez, sin necesidad de acceder mas tarde a este, caso una tarea que se crea para que realice cierto proceso y se destruye sola al terminar en ese caso si es valido algo como:

Código Delphi [-]
  
TMiTarea.create;
No aplica a TClientDataset , ni cerca.

Saludos.

roman 14-11-2008 19:34:35

¡Ah! Ok. Si todo se hace en el constructor pues es posible que pueda llamarse a Create desde una variable en lugar de referencia de clase misma. Aunque serán casos raros ¿no?

// Saludos

donald shimoda 14-11-2008 19:38:11

Cita:

Empezado por roman (Mensaje 326184)
¡Ah! Ok. Si todo se hace en el constructor pues es posible que pueda llamarse a Create desde una variable en lugar de referencia de clase misma. Aunque serán casos raros ¿no?

// Saludos

Si pero se da para una tarea concretamente, que no vaya a ser monitoreada. El create asigna los parámetros de arranque y la dispara con Resume, y se olvida de ella.

las he usado en algunas ocasiones.

Saludos.

maeyanes 14-11-2008 19:47:46

Hola...

Aquí metiendo mi cuchara :D

En algunas ocasiones se puede hacer para ejecutar hilos (TThread), yo lo he hecho en alguna ocasión, simplemente hago:

Código Delphi [-]
TMiHilo.Create(True); // El constructor redefinido Create inicializa la propiedad FreeOnTerminate a True


Saludos...

Delphius 14-11-2008 19:50:57

Cita:

Empezado por donald shimoda (Mensaje 326070)
Con el único fin de enriquecer la charla en tiempo de diseño Assigned triunfa donde pepe <> nil falla.

Documento.

Saludos.

¡Ufff... como tengo oxidado el inglés!:(
Parece que no basta con tener el diccionario de 2 kilos. En algún momento tendré que volver a tomar cursos de inglés.:o

Si no es molestia, ¿Alguien podría resumirlo en castellano?

No me queda muy en claro la relación de dicho documento con lo tratado aquí. Y lo digo precisamente por lo que leo... ¡Habla sobre punteros a métodos! Tal como lo ha señalado roman:

Cita:

Empezado por roman (Mensaje 326156)
Aunque si se lee con cuidado, notarán que la diferencia no aplica en el caso de un objeto sino de un apuntador a método.

No es por traer problemas, pero es que me gustaría poder entender correctamente la diferencia de emplear Assigned entre objetos y métodos.

Saludos,

roman 14-11-2008 19:58:48

Je, je, ahora ya estamos con los TThread. Pues sí, es como dices maeyanes. E incluso para otro tipo de situaciones puede definirse un método de clase que se encargue de instanciar un objeto, hacer cositas con él, liberarlo y se acabó.

Por ejemplo, si tenemos una clase TPropiedadesPersona, derivado de TForm para editar las propiedades de un objeto TPersona, puede definirse un método de clase:

Código Delphi [-]
type
  TPropiedadesPersona = class(TForm)
     ...
  public
    property Persona: TPersona .....;
    class procedure Editar(P: TPersona);
  end;

...

class procedure TPersona.Editar(P: TPersona);
var
  Form: TPropiedadesPersona;

begin
  Form := TPropiedadesPersona.Create(nil);
  Form.Persona := P;

  try
    Form.ShowModal;
  finally
    Form.Free;
  end;
end;

De esta manera, para editar las propiedades, simplemente haríamos:

Código Delphi [-]
TPropiedadesPersona.Editar(P);

sin más nada.

// Saludos

maeyanes 14-11-2008 20:03:36

Hola

Solo que un método de clase se declara como:

Código Delphi [-]
class procedure Editar(P: TPersona);

A menos que esté desactualizado :p



Saludos....

roman 14-11-2008 20:07:33

Cita:

Empezado por maeyanes (Mensaje 326204)
Solo que un método de clase se declara como:

Tienes toda la razón. Ya he corregido el ejemplo.

// Saludos

Al González 14-11-2008 21:33:09

¡Hola a todos!

Mi aportación.

Es un hecho que todas las variables globales están en blanco (en ceros) al inicio del programa.

Las variables locales para tipos de datos que no emplean "finalización automática" no son inicializadas. Esto ahorra instrucciones de código máquina que muchas veces no nos serán necesarias. Se entiende que, en la mayoría de los casos, si declaramos una variable local es porque vamos a asignarle algo antes de utilizarla; aunque es cierto que a veces nos gustaría que se pusieran en blanco desde el inicio de la rutina, logrando que 0, False, Nil, etc. fuera un valor automático predeterminado. Probablemente en el futuro, o en otras plataformas, esta inicialización en ceros de todas las variables locales sea una condición normal, pero de momento, en el Delphi nativo, únicamente ocurre con las cadenas largas (strings), las interfaces, los arreglos dinámicos y los variantes (probado con Delphi 7). Esto es porque la memoria de tales tipos de datos es liberada en automático —o al menos su contador de referencias es disminuido en 1— cuando la función, procedimiento o método termina.

Esta útil practicidad implícita del compilador crea la obligación, para él mismo, de agregar código máquina de "inicialización cruda" al comienzo de la rutina, que consiste simplemente en rellenar de ceros todas las variables locales que sean de esos tipos. Recordemos que una variable local no es más que un grupo de bytes en alguna posición de memoria que pudieron haber sido utilizados antes, por tanto, de entrada, una variable local sin inicializar puede arrojarnos cualquier valor que formen sus bits en ese momento. Si al empezar a ejecutarse una rutina, ésta no hiciera el blanqueo inicial (la inicialización cruda de la que hablo) de una variable local String o arreglo dinámico, por ejemplo, ¿cómo sabría si debe o no ejecutar el código máquina de finalización que el compilador agrega al final, considerando que quizá alguna condición (If) de la rutina determinó que la variable no fuese utilizada? O bien, al asignarle valor por primera vez, ¿cómo sabría el programa que lo que está actualmente en la variable es algo que debe “liberar” antes de realizar la asignación, o sólo se trata de un vestigio del uso que tuvieron esos bytes por parte de otra función?

Es por ello que tales tipos de variables locales, y sólo tales tipos, son puestas en blanco predeterminadamente.

Respecto a los constructores, es bueno aclarar que éstos no son métodos clase, si bien pueden llamarse con la sintaxis de un método clase. Un constructor puede ser llamado tanto con una clase —para crear una instancia e inicializarla— como con una variable o cualquier otra expresión de tipo objeto —para solamente (re)inicializar ese objeto, o hacer lo que está definido en el constructor—. El programa sabe cuándo la llamada ha sido hecha de una manera o de la otra gracias a una bandera interna que se maneja como parámetro implícito (con valor de 1 o 0, respectivamente).

La segunda forma de llamada necesita que la instancia sea real (no basta declarar la variable). Con la primera forma se llama en automático al método virtual NewInstance que señaló Román, para reservar el bloque de memoria donde residirán los campos del objeto, es decir, la instancia. Pero NO es verdad que la segunda forma también cree una instancia. El método NewInstance solamente es ejecutado cuando la llamada al constructor es hecha con una referencia de clase (TClaseObjeto.Create), pero no cuando se realiza con una referencia de objeto (Objeto.Create o Inherited Create). La bandera interna que mencioné antes existe básicamente para saber si NewInstance debe ser llamado o no al ejecutarse un constructor. :)

Cita:

Empezado por Borland
A value of False in the flag parameter of a constructor call indicates that the constructor was invoked through an instance object or using the inherited keyword. In this case, the constructor behaves like an ordinary method. A value of True in the flag parameter of a constructor call indicates that the constructor was invoked through a class reference. In this case, the constructor creates an instance of the class given by Self, and returns a reference to the newly created object in EAX.

Y en cuanto a utilizar “Assigned (Expresión)” o “Expresión <> Nil, personalmente prefiero la segunda por parecerme más clara y natural. Aunque tratándose de expresiones método siempre utilizo Assigned, más que nada por impedimentos del compilador para usar la segunda forma.

Espero haber contribuido a algo bueno.

Un abrazo instanciado.

Al González. :)

roman 14-11-2008 21:47:34

Estupendas aclaraciones Al.

Había olvidado lo del NewInstance en mi afán de entender porqué la llamada a Create desde una variable podría ser válida. Como bien muestras, ni siquiera hay un objeto creado, razón de más para no usar dicha sintaxis para crear un objeto, a no ser que sea, como dices, para reinicializar el objeto.

Es cierto que un constructor no es un método de clase, aunque para los efectos que aquí tratamos, puede entenderse como tal, en el sentido de que existe independientemente de cualquier instancia.

// Saludos

Cecilio 15-11-2008 13:11:13

Gracias de nuevo a todos.

La verdad es que ya uso assigned(loquesea).
Desde que lo usé no volvió a dar problemas.

Tambien estoy usando lo que aconsejasteis: FreeAndNil para otros casos, no para el que estaba trabajando cuando la consulta en el foro, ya que ese ClientDataset solo se libera al terminar el programa. Cada método comprueba con assigned si está creado y si no lo crea asi:
cds:= TClientDataSet.create(self)

Aunque en el foro puse ds.create(self) realmente nunca lo creo así. Lo puse así por la rapidez ya que lo importante era la comparación a nil del If, ni tampoco lo libero, ya que se libera en onClose de la form.

El programa va de lujo usando el assigned


La franja horaria es GMT +2. Ahora son las 07:00:56.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi