Mail

В этот день много лет назад...
26 ноября. В 1718 году (306 лет назад) - Петр I издает указ "О назначении рынков в Санкт-Петербурге, о наблюдении чистоты торгующими съестными припасами и о ношении ими белых мундиров". По этому указу запрещается торговля вдоль больших улиц, поскольку "проезд по большой дороге от тесноты за многолюдством весьма труден". На городских рынках всем торговцам в мясном и рыбном рядах надлежит под страхом крупного штрафа носить белые мундиры. Пусть немного на военный манер, но Петр I все же продемонстрировал свое желание решать вопросы гигиены в своем невском "парадизе".

Turbo Pascal Documentation

Функция SizeOf

     Функция: Возвращает число байтов, занимаемых аргументом.
     Описание: SizeOf(x)
     Тип результата: Слово (word).
     Примечания: Параметр x является ссылкой  на  переменную
или  идентификатором  типа.  Данная  фунция возвращает число
байтов памяти, занимаемых x.
     При передаче значений функциям FillChar,  Моvе,  GetМем
всегда следует использовать функцию SizeOf:

           FillChar(s, SizeOf(s), 0);
           GetMem(p, SizeOf(RecordType));

      Пример:

        type
          CustRec = record
                      Name  : string[30];
                      Phone : string[14];
                    end;
          var
            p : ^CustRec;
          begin
            GetMem(p, SizeOf(CustRec));
          end.