El mejor momento para liberar un objeto

[[nlsgarcia]]

David,

Empezado por dec

...¿se pueden usar métodos de una clase sin instanciarla y sin que dichos métodos estén declarados como "de clase"?...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TC1 = Object
  public
    // Método y variable tipo Object
    MsgUser : String;
    function Calculate(N1, N2 : Double) : Double;
  end;

  TC2 = class
  public
    // Variable de Instancia
    MsgUser : String;
    // Método de Clase
    class function Calculate1(N1, N2 : Double) : Double;
    // Método de Instancia
    function Calculate2(N1, N2 : Double) : Double;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Método Object
function TC1.Calculate(N1, N2: Double): Double;
begin
   ShowMessage(Format('Calculate = %n (+,-,*,/) %n',[N1,N2]));
end;

// Método de Clase
class function TC2.Calculate1(N1, N2: Double): Double;
begin
   ShowMessage(Format('Calculate = %n (+,-,*,/) %n',[N1,N2]));
end;

// Método de Instancia
function TC2.Calculate2(N1, N2: Double): Double;
begin
   ShowMessage(Format('Calculate = %n (+,-,*,/) %n',[N1,N2]));
end;

// Uso del tipo Object y de Métodos de Clase y de Instancia
procedure TForm1.Button1Click(Sender: TObject);
var
   C1 : TC1;
   C2 : TC2;

begin

   C1.MsgUser := 'Tipo Object = No requiere ser Instanciado para el uso de Variables y Métodos';
   ShowMessage(C1.MsgUser);
   C1.Calculate(7.1,3.14);

   ShowMessage('Método de Clase = No requiere ser Instanciada la Clase para su uso');
   TC2.Calculate1(7.1,3.14);

   C2 := TC2.Create;
   C2.MsgUser := 'Método y Variable de Instancia = Requiere ser Instanciada la Clase para su uso';
   ShowMessage(C2.MsgUser);
   C2.Calculate2(7.1,3.14);
   C2.Free;

end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, ejemplifica el uso del tipo Object y de Métodos de Clase y de Instancia.

Nota: El tipo object permite instanciar objetos sin usar el método Create y es muy util para implementaciones de tipos abstractos simples, para desarrollos formales orientados a objetos se debe usar el tipo Class.

Revisa esta información:

1- Objeto para Medir el Tiempo de Ejecución de un Proceso

2- Understanding Class Methods

Espero sea útil

Nelson.

[ecfisa]

Hola.

Agrego algo a lo expuesto por Nelson. El detalle es, que conviene abstenerse de incluir métodos virtuales cuando se usa el antiguo estilo Pascal de declaración,

Código Delphi [-]
type 
  xxx = object
    procedure yyy; virtual;
  end;

con las nuevas versiones de Delphi.

Eso trae aparejado problemas que ya han sido reportados en QualityCentral: Using old style Objects in D2009 fails

Saludos

[[nlsgarcia]]

Daniel,

Empezado por ecfisa

...conviene abstenerse de incluir métodos virtuales cuando se usa el antiguo estilo Pascal...trae aparejado problemas que ya han sido reportados en QualityCentral...

Revisa este código:

Código Delphi [-]
 
  program testD2009;
  
  {$APPTYPE CONSOLE}
  
  uses
    SysUtils;
  
  Type
    PObject1 = ^TObject1;
    TObject1 = Object
      FCount     : Integer;
      Constructor Init;
      Procedure Add; virtual; { removing virtual allows the program to run }
      end;
  
  Type
    PObject2   = ^TObject2;
    TObject2   = Object(TObject1)
      Constructor Init;
      end;
  
  Constructor TObject1.Init;
  begin
  { Commenting out this assignment allows the program to run.
    It also runs if Procedure Add; is not Virtual.
    I presume there is some address mismatch resulting in an
    over-write of the VMT }
  FCount := 0;
  Writeln('TDynArray:Init');
  end;
  
  Procedure TObject1.Add;
  begin
  Writeln('Add');
  end;
  
  Constructor TObject2.Init;
  begin
  Inherited Init;
  Writeln('TObject2:Init');
  end;
  
  Var
    Object1 : PObject1;
    Object2 : PObject2;
  begin
    try
      Object1 := New(PObject1,Init);
      Object1^.Add;
  
      Object2 := New(PObject2,Init);
      Object2^.Add;
      readln;
    except
      on E:Exception do
        Writeln(E.Classname, ': ', E.Message);
    end;
  end.

Tomado de : QualityCentral-Using old style Objects in D2009 fails

El código anterior que falla en Delphi 2009 según se indica en QualityCentral, funciona correctamente en Delphi 2010 y Delphi XE6 sobre Windows x32 y Delphi XE7 sobre Windows 10 Technical Preview x32, al parecer el problema reportado solo aplica a Delphi 2009, no obstante para desarrollos formales orientados a objetos se debe usar el tipo Class.

Espero sea útil

Nelson.

[ecfisa]

Hola Nelson.

Empezado por nlsgarcia

....al parecer el problema reportado solo aplica a Delphi 2009...

Bién por Embarcadero que lo haya solucionado en las versiones posteriores. Quede la advertencia para aquellos que usan la versión 2009 entonces...

Saludos

[mamcx]

No hay razon para decir que es "anormal" usar class methods. La idea de que solo es OO si se usan clases/objetos es solo un subproducto de que desafortunadamente la OO que se hizo popular es la deficiente implementación de C++/Java.

En ausencia de un sistema de modulos, los class methods se pueden usar tal como es usar funciones "simples". No hay razon para crear objetos para solo hacer un procesos que se puede directo con funciones/class-methods.

[roman]

Empezado por mamcx

Y porque no?


Los class methods se usan regularmente de la forma exacta que se describe, no solo en Delphi sino en todos los lenguajes que soportan esta opcion.

Empezado por mamcx

No hay razon para decir que es "anormal" usar class methods. La idea de que solo es OO si se usan clases/objetos es solo un subproducto de que desafortunadamente la OO que se hizo popular es la deficiente implementación de C++/Java.

En ausencia de un sistema de modulos, los class methods se pueden usar tal como es usar funciones "simples". No hay razon para crear objetos para solo hacer un procesos que se puede directo con funciones/class-methods.

Claro Mario, pero a lo que nos referimos dec y yo es a que en el ejemplo que puso, ecfisa olvidó poner class en la declaración de los métodos. Sirve si no se hace referencia a variables de la clase pero no es lo que "debe" hacerse.

No tenemos nada en contra de los métodos de clase

// Saludos

[[Al González]]

De hecho los métodos de clase están bastante difundidos ya en las bibliotecas Delphi nativas y de terceros. Cubren diversas necesidades. Menciono las que ahora vienen a mi memoria:

• Agrupación de funciones y variables globales que llevan estrecha relación entre sí. Algo que ya puede hacer una mera unidad .pas, pero con las ventajas de la POO (el encapsulamiento, la herencia y el polimorfismo aplican también a clases sin instancias). Además de la obligación sintáctica de usar identificadores calificados (escribir el nombre de la clase) cuando se usa desde afuera.

• Virtualización de funciones: A llama a B; en cierto caso deseo que llame a C en lugar de B, sin modificar su código. Para conseguir algo parecido sin clases había que definir a B como una variable procedimental, pero cambiar el valor de esta afectaba a todos los llamadores de A.

• Una especie de patrón singleton, disponible desde que arranca el programa, sin necesidad de crear una instancia de la clase que lo implementa.

• Exponer una variable global privada —o campo de clase—, como propiedad de sólo lectura, de tal manera que la variable no pueda ser modificada desde fuera de la clase, sólo leída. La manera de conseguir esto sin una clase era definiendo una función global que devolviera el valor de la variable, pero con el costo de la llamada (el Call interno) a la función —no hay Call alguno cuando una propiedad lee directamente de un campo FXXX—. El costo extra de CPU al usar una función puede aliviarse un poco si es compilada inline, pero esto no siempre es deseable o posible.

• Que una clase pueda llevar el control de sus propias instancias. Los campos (variables) y métodos de clase pueden usarse para administrar una lista de todas las instancias de objeto de esa clase, e intercambiar mensajes entre ellas.

Un saludo.

Al González.

[ecfisa]

Hola roman.

Empezado por roman

Claro Mario, pero a lo que nos referimos dec y yo es a que en el ejemplo que puso, ecfisa olvidó poner class en la declaración de los métodos. Sirve si no se hace referencia a variables de la clase pero no es lo que "debe" hacerse.

No tenemos nada en contra de los métodos de clase

// Saludos

En realidad no fué un olvido, quise poner en relieve precisamente la curiosidad que Delphi permite utilizar "métodos de objeto" sin haber creado una instancia de la clase.

Saludos