Главная страница | назад





Article #21564: Initializing an array or record to null.

Question:
How Do I initialize an array or record to null?

Answer:
By using the FillChar procedure. Here is an example:


procedure TForm1.Button1Click(Sender: TObject);
type
TIntRec = record
i1: integer;
i2: integer;
i3: integer;
i4: integer;
i5: integer;
end;
var
IntArray: array[0..4] of integer;
i: integer;
s: string;
IntRec: TIntRec;
begin
// the array:
FillChar(IntArray,SizeOf(IntArray),0); // if you comment out this line, you will have random values in the array
for i := low(IntArray) to high(IntArray) do
s := s+IntToStr(IntArray[i]);
form1.Caption := 'IntArray: '+s;
// the record:
FillChar(IntRec,SizeOf(IntRec),0); // if you comment out this line, you will have random values in the record
form1.Caption := form1.Caption+' '+'IntRec: '+IntToStr(IntRec.i1)+IntToStr(IntRec.i2)+IntToStr(IntRec.i3)+IntToStr(IntRec.i4)+IntToStr(IntRec.i5);
end;

Last Modified: 05-APR-00