|
procedure FillChar ( var Buffer; FillCount : Integer; FillValue : Byte );
Процедура FillChar заполняет раздел памяти Buffer тем же самым байтом или символом FillValue FillCount раз.
Это используется, преимущественно, для инициализирования массивов чисел. Это может использоваться, чтобы инициализировать записи и строки, но нужно использовать с осторожностью, чтобы избежать записывания поверх полей длины. 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;
|
