Pasted

// Para quem utiliza records, vai uma dica para minimizar o tamanho dos dados armazenados
// utilize a palavra PACKED para otimizar
 
type
  TDefaultRecord = Record
    name1   : string[4];
    floater : single;
    name2   : char;
    int     : Integer;
  end;
 
  // Agora com PACKED
  TPackedRecord = Packed Record
    name1   : string[4];
    floater : single;
    name2   : char;
    int     : Integer;
  end;
 
var
  defaultRec : TDefaultRecord;
  packedRec  : TPackedRecord;
 
begin
  ShowMessage('Default record size = '+IntToStr(SizeOf(defaultRec)));
  ShowMessage('Packed record size = '+IntToStr(SizeOf(packedRec)));
end;
 
// SAIDA
// Default record size = 20
// Packed record size = 14