Me hago cruces!!!!!!

[atani123]

¿Delphi 2010 no sabe sumar?

Tengo una estructura 2 single y un smallint (4+4+2 bytes) total de la estructura 12 bytes. Tamos tontos!!!!!!!

Que alguien me lo explique. El problema esta en el smallint. Si lo quito de la estructura el total suma 10

[juanelo]

Se debe a a la alineacion. (Data Alignment)

[ecfisa]

Hola atani123.

Es tál como te indica juanelo, para un acceso mas veloz, Delphi alinea las estructuras a palabra o doble palabra. Podes comprimir el almacenamiento de datos usando la palabra reservada packed sobre el registro o de manera global usando la directiva {$A-}. Pero hace mas lento el acceso y puede traer incompatibilidad en el caso de que los datos sean caracteres.

El efecto se puede comprobar facilmente:

Código Delphi [-]
type
  rec1 = record
    factor: Single;
    offset: Single;
    id    : SmallInt;
  end;
  
  rec2 = packed record
    factor: Single;
    offset: Single;
    id    : SmallInt;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  r1: rec1;
  r2: rec2;
begin
  with ListBox1.Items do
  begin
    Add('rec1 (record)');
    Add('-------------');
    Add(Format('factor: %d',[SizeOf(r1.factor)]));
    Add(Format('factor: %d',[SizeOf(r1.offset)]));
    Add(Format('factor: %d',[SizeOf(r1.id)]));
    Add(Format('Total: %d',[SizeOf(r1)]));
    Add('');
    Add('rec2 (packed record)');
    Add('-------------');
    Add(Format('factor: %d',[SizeOf(r2.factor)]));
    Add(Format('factor: %d',[SizeOf(r2.offset)]));
    Add(Format('factor: %d',[SizeOf(r2.id)]));
    Add(Format('Total: %d',[SizeOf(r2)]));
  end;
end;

Saludos

[Casimiro Notevi]

Empezado por atani123

...

Por favor, recuerda poner títulos descriptivos.
Cuando alguien tenga tu misma duda, podrá hacer una búsqueda, pero con ese título que has puesto, a ver quién lo encuentra (este hilo)

[atani123]

Perdona, tienes razon, no lo habia pensado asi. Lo tendre en cuenta para futuras preguntas, gracias.

[atani123]

Gracias a los dos por la respuesta, entonces en mi caso no tengo mas remedio que usar packet record ya que trato de leer un fichero (FILE of TRec) que ha sido generado con otro software.

Muchisimas gracias

[Casimiro Notevi]

Empezado por atani123

Perdona, tienes razon, no lo habia pensado asi. Lo tendre en cuenta para futuras preguntas, gracias.

Gracias a ti