Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement