Mail

В этот день много лет назад...
29 января. В 1895 году (131 год назад) - Одно из первых выступлений Николая II в качестве нового царя в Аничковом дворце в Петербурге перед депутацией от дворянства, земств и городов. Царь волнуется и говорит громко. Его супруга, в то время слабо понимавшая по-русски, встревожено спрашивает у стоящей рядом фрейлины: "Почему он кричит?" На что фрейлина отвечает по-французски: "Он объясняет им, что они дураки..."

Turbo Pascal Documentation

Процедура FillChar

     Функция: Помещает в заданное число  следующих  друг  за
другом байтов указанное значение.
     Описание: FillChar(x; счетчик : word; значение)
     Примечания: Параметр x является ссылкой  на  переменную
любого типа, "счетчик" представляет собой выражение длиной в
слово, "значение" является  выражением  перечислимого  типа.
Процедура записывает значение, указанное в параметре "значе-
ние", в то количество следующих друг за другом байтов  памя-
ти, начиная с первого байта, занимаемого переменной х, кото-
рое определяется параметром "счетчик".
      Проверка на допустимость границ не выполняется, поэтому
будьте внимательны.
     Если это возможно, при использовании процедуры FillChar
задавайте  параметр "счетчик". При использовании этой проце-
дуры для строк не забудьте после заполнения установить длину
в байтах.
     Прочее: См. также процедуру Моvе.
     Пример:

var
  s : string[80];
begin
  { задать строку, состоящую из пробелов }
  FillChar(s, SizeOf(s),' ');   { установить длину последо-
                                  вательности байтов }
  s[0] := #80;
end.