Процедура FillChar – заповнює розділ пам'яті значенням байта або символу-заповнювача

Процедура FillChar в Delphi заповнює розділ пам'яті значенням байта або символу-заповнювача.

Процедура FillChar: Заповнення масиву слова

var
  data : array[0..3] of Word;
  i : Integer;

begin
  // Заповнення Word масиву
  ShowMessage('Перед FillChar :');
  for i := 0 to 3 do
  begin
    data[i] := i*5;
    ShowMessage(IntToStr(i)+' значення елемента = '+IntToStr(data[i]));
  end;

  // Тепер заповнюємо масив значенням 1
  // Word - 2 байта: 00000001 00000001 hex = 257 dec
  FillChar(data, 4*SizeOf(Word), 1);

  // І показуємо масив тепер
  ShowMessage('После FillChar :');
  for i := 0 to 3 do
    ShowMessage(IntToStr(i)+' значення елемента = '+IntToStr(data[i]));
end;