Out of Memory

[javicho_villa]

Buenas, les comento después de revisar y revisar mi código, logre mejorar mucho las perdidas de memoria, resulta que cuando creas una clase y dentro de los atributos pones un objeto como atributo este crea una instancia del mismo, que por lo general genera una perdida de memoria, ejemplo:

TPresupuesto = class;
Id:integer;
Cliente: TCliente;
End;

El TCliente tambien tenia como atributo un Tipo de documento de la clase TParametro que generaba a su vez otra perdida de memoria, bueno a paser que sobreescribo el destructor y destruyo estos atributos que son onjetos de otras clases que he creado, siempre generan perdida de memoria asi que simplemente no los estoy usando, por que no son tan necesarios, puedo prescindir de estos por ahora y bajaron bastante las perdidas de memoria.

Me he quedado con solo una perdida de memoria de la clase TPresupuesto que que cada vez que entro al formulario se genera una perdida, is entro 5 veces a ese formaulrio que trabaja con esa clase genera 5 perdidas de memoria, he puesto en el evento OnClose del formulario: Action := caFree; y tambien FReeAndNil(Presupuesto); y no lo libera de la memoria.

Si me podrían dar alguna idea amigos se los voy agradecer bastante

Saludos.

[ecfisa]

Hola.

La verdad es que no veo claramente como estas usando esas clases, pero para crear y liberar recursos dispones de los constructores y destructores. Si TPresupuesto crea un TCliente, es su responsabilidad liberarlo.

Como ejemplo:

Código Delphi [-]

....
type
  TCliente = class
  private
    FId: Integer;
    FNombre: string;
    //...
  public
    property ID: Integer read FId write FId;
    property Nombre: string read FNombre write FNombre;
    //...
  end;

  TPresupuesto = class
  private
    FId: Integer;
    FCliente: TCliente;
  public
    property Id : Integer read FId write FId;
    property Cliente: TCliente read FCliente write FCliente;
    constructor Create;
    destructor Destroy; override;
  end;

{ TCliente }
 //...


{ TPresupuesto }
constructor TPresupuesto.Create;
begin
  inherited;
  FCliente := TCliente.Create;  // crear
end;

destructor TPresupuesto.Destroy;
begin
  if Assigned(FCliente) then 
    FreeAndNil(FCliente);   // liberar
  inherited;
end;

Saludos

[javicho_villa]

Gracias por la respuesta ecfisa, he estado poniendo FreeAndNil(FCliente) siguiendo tu ejemplo, pero no se porque cuando cierro el formulario, a pesar que destruyo los objetos genera una perdida de memoria del TPresupuesto, a psear tambien que en el evento Onclose del formulario he puedo FreeAndNil(Presupuesto).

[javicho_villa]

Finalmente resolví mi problema, todo era un campo donde guardaba una imagen, solo para guardar una imagen nueva los comprimia, pero al editar por defecto se descomprimia, lo controle y ahora hay buena velocidad de respuesta.

Muchas gracias a todos por las respuestas y apoyo

Saludos.