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;
|