Справочник функций и процедур Delphi: FillChar

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

FillChar
Процедура
Заполняет раздел памяти значением байта или символа-заполнителя System unit
  procedure FillChar ( var Buffer; FillCount : Integer; FillValue : Byte ) ;

Delphi Sources

Описание
Процедура FillChar заполняет раздел памяти Buffer тем же самым байтом или символом FillValue FillCount раз.

Это используется, преимущественно, для инициализирования массивов чисел. Это может использоваться, чтобы инициализировать записи и строки, но нужно использовать с осторожностью, чтобы избежать записывания поверх полей длины. StringOfChar больше подходит для того, чтобы заполнить строки тем же самым символом.
Похожие команды
GetMem  Получает указанное число байтов памяти.

SetString  Копирует символы из буфера в строку

StringOfChar  Создает строку из одного символа, повторенного много раз

 
Пример кода : Заполнение массива слова
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;

Перед FillChar :
0 значение элемента = 0
1 значение элемента = 5
2 значение элемента = 10
3 значение элемента = 15
После FillChar :
0 значение элемента = 257
1 значение элемента = 257
2 значение элемента = 257
3 значение элемента = 257
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте