Ver Mensaje Individual
  #1  
Antiguo 04-06-2025
_Io _Io is offline
Miembro
 
Registrado: ene 2024
Posts: 114
Reputación: 3
_Io Va por buen camino
Conocer el tamaño en memoria de un objeto

Hola , buenas noches.

Como puedo conocer el tamaño que ocupa en memoria un objeto creado a partir de una clase.

Mi idea es meterlo en un stream, para trabajar con el mismo.

Un ejemplo

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
var
  NifEnt :VNifV2Ent;
  NifSal :VNifV2Sal;
  j:integer;
begin


  NifEnt:=Consulta_NIF;
  try

    NifSal:=vxf.soap_getNIFdata(NifEnt);

    if vxf.soap_UltimoError = '' then
    begin

  //  Carga salida
      for j:=0 to length(NifSal) -1 do
      begin

        if assigned(NifSal[j]) then
        begin

          memo2.Lines.Add(NifSal[j].Nif);
          memo2.Lines.Add(NifSal[j].Nombre);
          memo2.Lines.Add(NifSal[j].Resultado);

        end;

      end;

    end
    else
      memo2.Lines.Add(vxf.soap_UltimoError);

  finally

    setlength(NifSal,0);
    setlength(NifEnt,0);

  end;

end;

Cómo podría saber el tamaño de NifEnt, para poder guardarlo en un stream?

Muchas Gracias.
Responder Con Cita