Для чего нужен Packed?

[VintProg]

Для чего нужен Packed,
я только замечал одну вещь когда создаеш большую структуру и ей пытаешся прочитать файл то он читается ощибочно а потом вставляещ
packed record и все нормальна,пользовался TFileStream;

[ОДИНОЧЕСТВО В СЕТИ]

Ключевое слово Packed говорит Delphi минимизировать память, взятую определенным объектом.

Обычно, сложные типы данных, такие как записи, имеют свои элементы по 2, 4 или 8 байта, соответствующие типам данных. Например, поле Word было бы 4-байтовое.

Записи также дополняются, для гарантии, что они закончены, 4-х байтовой границей.

Упаковка отменяет это, сжимая данные в наименьшую память, хотя с последующим уменьшенным доступом выполнения.

[Utkin]

Дополнение - работает не везде. Пример - строки, соответственно структуры содержащие строки и пр. Можно применять к множествам, массивам (кажись тоже не ко всем), записям, объявлениям класса (естественно без строк) и файловым типам (с ограничениями).

[Stilet]

Для чего нужен Packed,

По-моему это аттавизм... Как по мне не стоит им пользоваться.

[VintProg]

Но фирма Borland пользовалась???

Также хочу заметить что он использовался и в массивах?

[Utkin]

Да и да. Сейчас, это уже по сути не важно, прирост в производительности особого значения при нынешних скоростях значения не имет. Экономия памяти при нынешних объемах памяти значения не имеет.

Но фирма Borland пользовалась???

К чему это?

[VintProg]

По-моему это аттавизм... Как по мне не стоит им пользоваться.

Да нет без него не обойтись я узнал об этом на примерах,
вот пример:

type
 TStuct = record
   name : array[0..25] of char;
   size : integer;
   index : integer;
 end;

возьмем измерим размер структуры функцией SizeOf(TStuct);
получим 36 - байтов

type
 TStuct = packed record
   name : array[0..25] of char;
   size : integer;
   index : integer;
 end;

теперь правильно 34 - байта

вывод:
и за не правильного размера структуры можно ошибку сделать например при чтения даных из файла,
кто са мной согласен?

[Stilet]

кто са мной согласен?

Я. Попробуй записать и считать данные из файла. ошибки будут?

[VintProg]

Stilet
Да пробовал уже, в виду ошибок я имею не правильное чтение,
то и есть читает не все либо не так.

[Stilet]

А я тебе воттакой пример приведу:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
 TStuct = record
   name : string[50];
   size : integer;
   index : integer;
 end;
 var f:file of TStuct;
  w:TStuct;

  i:integer;
begin
 assignFile(f,'f');rewrite(f);
 for i:=0 to 10 do begin
  with w do begin
   name:=TimeTostr(time);
   size:=i*2;
   index:=i;
  end;
  write(f,w);
 end;
 //*************************************************
 closefile(f);reset(f);
 while not eof(f) do begin
  read(f,w);
  with w do begin
   writeln(name,#9,size,#9,index);
  end;
 end;
 closefile(f);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Попробуй с скажи правильно ли он работает.